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ABSTRACT 


A  vortex-lattice  potential  flow  computer  program  capable  of 
accepting  nonuniform  flow  boundary  conditions  but  previously  restricted 
to  incompressible  flows  with  symmetry  was  modified  to  eliminate  these 
restrictions.  The  program  was  structured  in'such  a  way  that,  after 
preliminary  calculations  of  a  purely  geometric  nature  were  performed 
one  time  for  a  given  body,  potential  flow  solutions  for  any  set  of  bound¬ 
ary  conditions  on  that  body  could  be  obtained  in  computer  times  mea¬ 
sured  in  seconds  rather  than  minutes.  The  aerodynamic  character¬ 
istics  of  an  M-117  bomb,  represented  by  a  network  of  312  vortices, 
were  calculated  for  uniform  flow  at  a  Mach  number  of  0.  5  and  were 
found  to  agree  with  wind  tunnel  measurements  to  within  10  percent, 
except  for  drag.  The  program  was  also  used  to  compute  forces  on  an 
M-117  bomb  at  a  number  of  different  locations  in  the  disturbed  flow  field 
generated  by  an  F-4C  parent  aircraft.  In  this  case,  absolute  values  of 
the  force  coefficients  were  generally  in  poor  agreement  with  wind  tunnel 
values,  but  the  incremental  variations  of  the  calculated  coefficients 
through  the  nonuniform  flow  field  were  within  the  range  from  5  to  10 
percent  of  wind  tunnel  measurements.  A  store  separation  routine  was 
added  to  the  potential  flow  program,  and  several  representative  store 
separation  trajectories  were  calculated. 
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NOMENCLATURE 


Submatrices  of  the  H-*  matrix,  defined  in  Section  3.  2 
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Correction  to  calculated  axial-force  coefficient  for  a 
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Frictional  correction  to  axial-force  coefficient, 

Eq.  (19) 


Axial,  normal,  side-force  coefficients,  respectively 
General  force  coefficient 

Rolling,  pitching,  yawing -moment  coefficients, 
respectively 

Pressure  coefficient 

Force  on  it*1  segment  of  a  horseshoe  vortex,  defined 
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Submatrices  of  the  G  matrix,  defined  in  Section  3.1 
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Matrix  of  geometric  factors  defined  by  Eq.  (8) 
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2 

Reference  area,  0.  5025  in. 


Velocity  in  flow  field  undisturbed  by  store 


Velocity  in  flow  field,  including  induced 
velocity,  =1^0,+  Eq,  Eq.  (15) 
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SECTION  I 
INTRODUCTION 


In  recent  years,  testing  of  aircraft  store  separation  characteristics 
has  emerged  as  one  of  the  major  uses  of  developmental  wind  tunnels. 

As  a  consequence  of  the  many  possible  configurations  and  flight  conditions 
of  interest,  such  testing  is  characterized  by  a  voluminous  production  of 
test  data.  To  assist  in  the  evaluation  of  tunnel  data  and  in  its  extrapo¬ 
lation  to  full  scale,  several  analytical  techniques  of  store  separation 
trajectory  calculation  have  been  under  development.  These  techniques 
possess  varying  degrees  of  dependence  on  experiment,  from  nil  to  a 
major  dependence.  Because  of  shortcomings  of  aerodynamic  theory  and 
present  digital  computer  limitations,  any  completely  theoretical  calcu¬ 
lation  apparently  will  remain  an  unattainable  ideal  for  a  number  of  years 
in  the  future.  An  analytical  method  which  places  a  major  reliance  on 
wind  tunnel  measurements  is  the  so-called  "grid  method, "  in  which  force 
characteristics  on  a  given  store  are  measured  at  a  large  number  of 
points  within  a  volume  beneath  a  given  parent  aircraft,  stored  in  some 
accessible  form,  and  finally  are  used  as  a  source  of  force  coefficient 
data  (interpolated)  at  points  along  a  distinct  trajectory  developed  by 
double  integration  of  the  equations  of  motion.  This  technique  has 
achieved  a  modicum  of  use,  but  is  limited  to  a  single  store/aircraft  com¬ 
bination  for  a  given  set  of  experimental  measurements. 

During  the  past  two  years,  the  staff  of  the  AEDC  Propulsion  Wind 
Tunnel  (PWT)  has  attempted  to  develop  an  alternate  technique  having  one 
step  less  dependence  on  wind  tunnel  measurements.  This  technique  is 
built  around  the  use  of  potential  flow  solutions  for  a  given  store,  using 
as  boundary  conditions  on  the  store  the  disturbance  flow  angles  measured 
in  the  nonuniform  flow  field  for  a  given  parent  aircraft.  Ideally,  this 
approach  would  allow  a  single  set  of  wind  tunnel  measurements  for  a 
single  parent  aircraft  to  be  used  with  any  number  of  different  store  calcu¬ 
lations. 

As  reported  in  Ref.  1,  a  potential  flow  program  based  on  vortex 
singularities  was  developed  in  a  form  allowing  imposition  of  boundary 
conditions  based  on  known  nonuniform  flow  fields.  Considerable  effort 
was  expended  in  developing  a  vortex  network  representation  of  the  M-117 
bomb  which  would  produce  calculated  force  characteristics  sufficiently 
close  to  values  measured  in  the  wind  tunnel.  A  network  composed  of 
140  vortices  representing  one  half  of  the  M-117  bomb  shape  and  16  vor¬ 
tices  representing  a  wake  at  the  base  of  the  bomb  (Fig.  1,  Appendix  I) 
was  found  to  give  10-percent  agreement  (except  for  drag)  with  force 
measurements  made  in  a  uniform  flow.  This  model  was  then  used  to 
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calculate  force  characteristics  on  the  M-117  bomb  at  various  locations 
within  the  nonuniform  flow  field  (NUFF)  of  the  F-4C  aircraft.  This 
calculation  was  made  only  in  an  approximate  sense,  since  only  the  down- 
wash  components  of  the  NUFF  were  allowed  for,  and  even  these  were 
averaged  laterally.  In  this  approximation,  the  absolute  values  of  the 
calculated  force  coefficients  differed  appreciably  from  wind  tunnel  meas¬ 
urements,  but  the  incremental  behavior  of  the  calculated  force  coeffic¬ 
ients  within  the  NUFF  showed  the  same  trends  as  did  the  wind  tunnel 
measurements.  Based  on  this  observation,  the  project  effort  was  con¬ 
tinued,  and  the  results  of  subsequent  calculations  are  presented  in  this  re¬ 
port. 


SECTION  II 

DESCRIPTION  OF  ANALYTICAL  METHODS 


2.1  POTENTIAL  FLOW  CALCULATIONS 


2.1.1  Boundary- Value  Problem  for  a  Velocity  Potential 


As  discussed  in  Ref.  2,  the  analytical  description  of  the  flow  field 
surrounding  an  aerodynamic  body  can  be  obtained  from  a  solution  of  the 
differential  equation  for  a  velocity  potential,  i.  e. ,  Laplace's  equation, 
in  the  incompressible  case. 


This  assumes  steady,  irrotational,  inviscid,  attached  flow.  In  the 
general  case  of  compressible  flow,  the  differential  equation  of  the 
velocity  potential  is  highly  nonlinear,  and  exact  solutions  are  not 
generally  possible  to  obtain.  Almost  all  work  in  the  compressible 
regime  has  been  done  in  the  linearized  approximation  assuming  pertur¬ 
bations  to  the  free  stream  are  small.  The  velocity  potential,  $,  then 
satisfies 


02 

<J>  +  —  0  + 
(5Y2 


*1<J>  =  0 

d  Z2 


(2) 


the  Neumann  condition  on  the  planform  surface 

V-n  =  —  V'fc-n  =  0 


(3) 


and  the  boundary  condition  at  infinity 

V<D  =  at  \  =  Y  =  Z  =  ±~ 


(4) 
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Since  the  Laplace  equation  is  linear,  superposition  of  elementary  solu¬ 
tions  (sources,  sinks,  doublets,  and  vortices)  will  allow  buildup  of  an 
incompressible  flow  over  quite  general  shapes  satisfying  the  boundary 
conditions,  Eqs.  (3)  and  (4). 

Since  it  was  desired  to  allow  for  trailing  vorticity  in  the  flow, 
caused  by  three-dimensional  lifting  surfaces,  a  potential  flow  program 
was  developed  based  on  superposition  of  vortex  elements  alone,  exclud¬ 
ing  use  of  source,  sinks,  and  doublets.  This  program  was  modelled 
after  that  of  Ref.  3. 

Prandtl  introduced  the  concept  that  a  solid  body  immersed  in  a  flow 
is  equivalent  in  external  flow  to  a  sheet  of  continuously  distributed  vor¬ 
ticity  at  the  surface  of  the  body.  A  relation  exists  between  the  velocity 
at  any  point  and  the  strength  and  orientation  of  the  distributed  vorticity. 
Since  this  relationship  cannot  be  solved  in  closed  form,  it  is  necessary, 
for  computational  reasons,  to  replace  the  distributed  vortex  sheet  repre¬ 
sentation  of  a  solid  body  (an  exact  concept)  with  a  series  of  concentrated 
vortex  elements  having  the  same  net  strength  (an  approximation),  for 
which  a  simple  relationship  does  exist.  This  relationship  is  identical 
with  the  Biot-Savart  law,  which  describes  the  magnetic  field  induced  by 
an  electric  current  flowing  through  a  conductor.  In  its  fluid -mechanical 
formulation,  the  Biot-Savart  law  is  a  differential  relationship 
(see  Eq.  (7)  of  Ref.  1))  which  can  be  integrated  in  closed  form  along  a 
straight-line  segment  of  a  vortex  (the  description  of  a  vortex  segment  is 
given  in  Fig.  4c  of  Ref.  1).  The  result  for  a  single  horseshoe  vortex 
composed  of  a  number  of  straight-line  vortex  segments  can  be  expressed 
as 


qk.j  =  GLjrj 


(5) 


where  q^  i  is  the  velocity  at  field  point  k  due  to  vortex  j,  L:  is  the 
strength  of  vortex  j,  and  j  is  a  geometric  influence  coefficient  repre¬ 
senting  a  summation  over  all  segments  of  the  horseshoe  vortex  given  in 
functional  form  by  Eq.  (14)  of  Ref.  1. 


The  strengths  of  the  individual  vortices,  Tj,  are  determined  by  con¬ 
straining  the  flow  to  be  directed  in  a  prescribed  manner.  Generally 
this  is  done  by  requiring  the  flow  to  be  tangent  to  the  surface  at  a  set  of 
points  referred  to  as  boundary  points.  The  criterion  for  boundary 
point  location  used  in  obtaining  the  results  described  in  this  report  com¬ 
bines  simplicity  and  plausibility  -  the  boundary  point  coordinates  are 
taken  to  be  centroids  of  quadrilateral  panels  formed  by  overlapping 
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horseshoe  vortices.  A  single  boundary  condition  is  expressed  as 


•”t  ■  (%  ♦  j?',  gk.iri)'  ■ 0 


which  can  be  recognized  as  Eq.  (3)  written  at  a  specific  boundary  point. 
The  system  of  Nj  equations  representing  all  the  required  boundary  con¬ 


ditions  is  thus 


k  =  1 . N; 


It  is  convenient  to  introduce  the  matrix  notation 


M  ■  [hA,] 


giving 

M  !ri!  ■  (9) 

as  the  matrix  equation  to  be  solved  for  the  unknown  vortex  strengths. 

Upon  solving  Eq.  (9)  by  inversion  of  the  H  matrix,  the  values  of  vorticity, 
Tj,  are  substituted  into  Eq.  (5)  to  obtain  the  velocity  distribution  at  the 

field  points. 

The  distribution  of  aerodynamic  forces  on  a  planform  is  obtained 
by  application  of  the  Kutta-Joukowski  law 

=  pV;  x  f.  (10) 

on  each  segment  i  of  every  vortex  j.  Finally,  summation  over  all  vortex 
segments  is  performed  to  obtain  the  forces  that  are  used  in  the  definitions 
of  aerodynamic  force  coefficients.  A  precaution  must  be  observed  in  the 
application  of  Eq.  (10);  namely,  the  velocity  vector  Vijshould  not  include 
any  induced  effect  of  the  i^1  vortex  element.  That  is,  Vi  should  be  the 
flow  field  velocity  vector  which  would  exist  in  the  absence  of  the  vortex 
element,  but  at  the  physical  location  of  the  element  usually  ass  timed  to  be 
its  midpoint. 

The  foregoing  method  of  construction  of  a  potential  flow  is  valid 
whatever  the  nature  of  in  the  boundary  conditions  shown  in  Eq.  (7). 

In  cases  of  uniform  onset  flow,  it  is  a  constant  vector.  In  the  case  of 
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present  interest,  disturbed  flow  fields,  it  is  assumed  to  vary  over  the 
surface  of  the  body  and  is  obtained  by  experimental  flow-field  measure¬ 
ments  in  the  absence  of  the  store.  This  approach  is  legitimate  only  in 
the  case  of  simple  interference;  that  is,  a  large  body  (parent  aircraft) 
produces  a  disturbance  flow  felt  by  a  smaller  body  (store),  but  not  vice 
versa.  In  case  the  disturbance  field  of  the  small  body  is  also  felt  at 
the  larger  body,  mutual  interference  is  said  to  occur,  and  solution  of 
the  potential  flow  problem  is  required  simultaneously  for  the  two  bodies. 
In  the  simple  interference  case  it  is  necessary  to  solve  the  potential 
flow  problem  for  only  the  smaller  body.  In  practice  this  means  that  the 
present  approach  is  strictly  valid  only  beyond  a  certain  distance  of  sepa¬ 
ration  defining  the  limits  of  mutual  interference. 

2.1.2  Compressibility  Corrections  to  Incompressible  Flow  Calculations 


Since  the  Biot-Savart  law  is  valid  only  for  incompressible  flow,  the 
vortex-lattice  calculations  are  performed  as  solutions  of  the  exact  equa¬ 
tion  for  the  velocity  potential  of  an  incompressible  flow,  Eq.  (1). 
Allowance  for  compressibility  is  then  made  by  use  of  the  Goethert  simi¬ 
larity  rule  (Ref.  2),  which  relates  a  compressible  flow  (linearized 
approximation,  Eq.  (2))  to  a  corresponding  incompressible  flow  about  an 
affinely  related  shape  which  is  decreased  in  all  lateral  dimensions  by 

the  factor  3  =  Vl  -  M„2,  The  rule  states  that  the  pressure  coefficients 
at  corresponding  points  in  these  two  flows  are  related  by 


comp 


(ID 


and,  for  characteristic  force  coefficients  obtained  by  use  of  a  reference 
area  which  is  equal  to  or  proportional  to  the  area  over  which  ACp  is 
integrated  to  obtain  the  force  (or  moment). 


comp 


(12) 


For  geometrically  similar  bodies,  all  areas  related  to  the  body  are 
proportional  to  all  other  areas,  and  there  are  no  qualifications  required 
by  the  choice  of  reference  area.  The  Goethert  rule  is  not  applied  to 
geometrically  similar  bodies,  however,  and  the  form  of  the  force  coeffi¬ 
cient  correction,  Eq.  (12),  does  depend  on  the  specific  reference  area 
chosen.  For  slender,  axisymmetric  shapes  such  as  the  M-117  bomb,  the 
cross-sectional  area  is  usually  chosen  as  the  reference  area,  and  this 
area  is  proportional  to  the  area  of  integration  of  Cp  only  for  the  axial- 
force  coefficient.  All  other  force  coefficients  are  formed  by  integration 
over  a  planform  area;  thus. 


5 


AEDC-TR-72-162 


Equation  (13)  was  used  for  correction  of  normal -force,  side-force, 
pitching-moment,  yawing-moment,  and  rolling-moment  coefficients. 
It  is  noted  that,  in  application  to  NUFF  flows,  the  NUFF  is  also  con¬ 
tracted  by  the  factor  (3  in  all  directions  transverse  to  the  flow. 


2.2  SIX-DEGREE-OF-FREEDOM  STORE  TRAJECTORY  CALCULATIONS 

A  routine  was  added  to  the  potential  flow  computer  program  to  allow 
trajectory  calculations  through  nonuniform  flow  fields.  The  trajectory 
computer  program  described  in  this  report  incorporates  the  same  differ¬ 
ential  equations  in  describing  six-degree-of -freedom  motion  as  those 
used  in  the  AEDC/PWT  Captive  Trajectory  System  (CTS).  The  differ¬ 
ences  between  the  two  approaches  are  primarily  that  (1)  each  program 
uses  different  numerical  integration  techniques  and  (2)  the  program  of 
this  report  uses  theoretical  force  coefficients,  whereas  the  CTS  program 
uses  experimentally  determined  forces. 

2.2.1  Equations  of  Motion 

The  differential  equations  describing  conservation  of  linear  momen¬ 
tum  are  Eqs.  (11-34),  (11-35),  and  (11-36)  of  Ref.  4;  the  angular  momen¬ 
tum  relationships  are  given  by  Eqs.  (13-37),  (11-38),  and  (11-39)  of 
Ref.  4.  (Equation  (11-37)  contains  a  misprint;  see  Eq.  (11)  of  Ref.  5.) 
The  store  rotational  sequence  is  assumed  to  be  pitch -yaw -roll.  The 
equations  resulting  from  this  assumption  relating  store  linear  velocity 
in  wind  axes  coordinates  to  velocity  in  body  axes  coordinates  are 
Eqs.  (H-13),  (11-14),  and  (11-15)  of  Ref.  4.  (These  equations  also  con¬ 
tain  a  misprint;  the  transformation  matrix.  A,  should  be  replaced  by 
the  transpose  of  A. )  The  differential  equations  relating  pitch,  yaw,  and 
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roll  velocities  to  store  rotational  velocities  about  body  axes  are 
Eqs.  (11-4),  (II-6),  and  (33-8)  of  Ref.  4.  See  also  page  23,  case  4,  of 
Ref.  5  for  the  coordinate  transformations  used  in  the  above  expressions. 

2.2.2  Numerical  Integration  Method 

The  motivation  that  led  to  the  adoption  of  the  particular  numerical 
integration  scheme  incorporated  in  the  trajectory  program  of  this  report 
was  optimization  of  computer  execution  time  consistent  with  the  accuracy 
of  its  results.  It  was  adjudged  that  accurate  results  could  be  obtained 
using  the  largest  possible  step  size  (in  time)  from  the  classical  fourth- 
order  Runge-Kutta  method.  To  apply  the  Runge-Kutta  algorithm  in  its 
usual  form  would  require  transferal  of  data  (the  H"^  and  G  matrices) 
from  external  memory  into  the  computer  core  each  time  a  single  set  of 
force  coefficients  is  to  be  determined.  (Since  the  size  of  the  H“*  and  G 
matrices  is  such  that  they  cannot  be  stored  in-core  in  their  entirety, 
they  must  be  input  repeatedly. )  As  the  data  input  operation  constitutes 
a  significant  fraction  of  the  total  time  required  to  perform  vortex-lattice 
calculations  (and,  consequently,  trajectory  calculations),  a  procedure 
has  been  adopted  to  compute  a  number  of  sets  of  force  coefficients  each 
time  the  H“*  and  G  matrices  are  input.  In  order  to  accomplish  this  sav¬ 
ing  in  execution  time  it  was  necessary  to  devise  a  scheme  that  would  in¬ 
corporate  this  approach  in  a  modified  Runge-Kutta  algorithm.  The  pro¬ 
cedure  that  was  constructed  is  a  predictor-corrector  method  and  is  de¬ 
scribed  in  the  following. 

A  first  approximation  to  the  solution  for  a  trajectory  is  obtained  by 
performing  Runge-Kutta  calculations  over  a  specified  number  of  time 
steps  (two  in  the  solution  subsequently  reported  herein)  using  extrapo¬ 
lated  values  of  force  coefficients.  The  values  of  store  orientation  ob¬ 
tained  in  this  manner  are  used  to  recompute  the  force  coefficients,  this 
time  by  the  vortex-lattice  method.  The  Runge-Kutta  calculations  are 
then  performed  a  second  time.  The  force  coefficients  used  in  this 
second  approximation  to  a  trajectory  are  obtained  in  the  form  of  Taylor 
series  expansions,  where  the  leading  terms  in  the  expansions  are  the 
vortex-lattice  results.  The  correction  term  to  the  drag  force  is  assumed 
to  be  a  quadratic  function  of  the  store  angle  of  incidence  with  respect  to 
the  free  stream;  the  correction  terms  to  the  normal  force,  side  force, 
pitching  moment,  and  yawing  moment  are  all  assumed  to  be  proportional 
to  computed  values  of  the  static  stability  derivatives. 
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SECTION  III 

VORTEX-LATTICE  AND  STORE  TRAJECTORY  COMPUTER  PROGRAM 


The  determination  of  aerodynamic  forces  by  the  vortex-lattice 
method  has  been  performed  by  a  digital  computer.  The  overall  set  of 
calculations  has  been  divided  into  three  separate  programs;  for  de¬ 
scriptive  purposes,  these  will  be  referenced  in  this  report  as  Pro¬ 
grams  A,  B,  and  C.  The  reasons  for  this  subdivision  are  twofold: 

1.  For  a  given  vortex  network  and  Mach  number,  certain 
of  the  calculations  are  of  a  purely  geometric  nature  and 
consequently  are  performed  only  one  time  for  a  given 
store  (in  Programs  A  and  B)  and  then  are  stored  on 
magnetic  tape,  to  be  used  in  conjunction  with  paramet¬ 
ric  variations  of  store  angle  of  incidence  and  location 
in  a  surrounding  NUFF  (in  Program  C); 

2.  The  computer  requirements  for  performing  the  geo¬ 
metric  calculations,  in  terms  of  internal  memory  and 
execution  time,  are  of  such  a  magnitude  that  these 
computations  cannot  all  be  performed  in  one  program; 
hence,  they  are  performed  in  two  separate  programs 
(A  and  B). 

Program  C,  which  computes  aerodynamic  characteristics  (the  dis¬ 
tributions  of  velocity,  pressure  coefficient,  and  force  coefficients,  as 
well  as  the  total -force  coefficients  on  a  store),  is  written  in  two  sepa¬ 
rate  versions.  One  of  these  computes  the  variables  just  mentioned  for 
a  specified  set  of  spatial  orientations  of  a  store  with  respect  to  its 
parent  aircraft  where  the  store  is  assumed  to  be  motionless  with  re¬ 
spect  to  wind  axes;  the  other  version  solves  for  both  the  force  coeffi¬ 
cients  and  the  trajectory  of  a  store  separated  from  its  parent  aircraft. 
The  portion  of  the  computer  code  that  pertains  to  the  trajectory  of  a 
separated  store  is  based  upon  the  nomenclature  and  equations  used  in 
Ref.  4. 

A  brief  description  and  user's  guide  of  these  programs  follows.  A 
more  detailed  description  may  be  obtained  from  the  authors. 


3.1  DESCRIPTION  OF  PROGRAM  A 

This  program  consists  of  a  MAIN  program  and  SUBROUTINE 
ICOEFF.  The  principal  results  are  the  calculation  of  the  G  and  H  vari¬ 
ables  and  the  transferal  of  these  data  to  magnetic  tape. 
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The  G  matrices  are  geometric  influence  coefficients,  the  resultant 
values  of  which  are  equal  to  the  sum  of  contributions  from  the  bound 
spanwise  vortex  segments  (denoted  by  the  FORTRAN  name  DIC),  bound 
chordwise  segments  (EIC),  and  trailing  vortices  (FIC).  The  H  matrix 
is  computed  from 


it  =  n.Gl 


(14) 


where  B  is  the  matrix  of  direction  cosines  of  the  unit  normals  to  the 
surface  at  the  boundary  points.  Sq  is  the  value  of  G  obtained  when  the 
influence  of  vortices  at  boundary  points  is  considered.  (It  may  be  noted 
that  Eq.  (14)  is  equivalent  to  Eq.  (8),  the  only  difference  being  the  use 
of  alternate  notations . ) 


The  first  step  leading  to  the  calculation  of  influence  coefficients  is 
the  specification  of  a  network  of  discrete  line  vortices  on  the  surface 
of  the  aerodynamic  planform  being  analyzed.  A  general  description 
of  vortex  networks  is  presented  in  Section  III  of  Ref.  3  and  Fig.  4  of 
Ref.  1.  The  specific  application  to  the  M-117  bomb  that  was  used  to 
obtain  the  results  of  this  report  is  described  in  Sections  4.  3  and  5.1.1 
of  Ref.  1  and  is  presented  in  Fig.  1  of  this  report. 

The  equations  for  G  are  shown  combined  in  succinct  notation  in 
Eq.  (14)  of  Ref.  1;  they  are  presented  in  the  detailed  form  in  which 
they  are  incorporated  in  the  computer  code  in  Eqs.  (2a),  (4a),  (7a), 

(10a),  and  (12a)  of  the  Appendix  to  Ref.  3. 

In  general,  all  matrices  of  geometric  factors  are  computed  in  par¬ 
titioned  form  if  the  planform  being  analyzed  possesses  geometric  sym¬ 
metry  about  its  longitudinal  axes.  In  the  special  case  of  zero  yaw  atti¬ 
tude  combined  with  lateral  symmetry  of  the  flow  field  about  the  store, 
the  matrices  can  be  further  simplified  (see  p.  18  of  Ref.  1).  In  par¬ 
ticular,  it  can  be  shown  in  the  general  case  that  the  x,  y,  and  z  compon¬ 
ents  of  S  are 


G  <»  i 

X  ! 

G.'a 

Gy(1>  I 

G,<2> 

Gv(,) 

l 

-g  (2>  i 

X 

_Gn> 

s 

Gy(2t  | 

9 

-G.(2> 

|  ~GZ(1) 

-*/  1  \ 

where  Gv  '  contains  the  influence  of  vortices  on  the  +y  (or  -y)  side  of  the 

-*/n\ 

x-z  symmetry  plane  at  field  points  on  the  +y  (or  -y)  side;  Gv  /  contains 
the  influence  of  vortices  on  the  +y  (or  -y)  side  at  field  points  on  the  -y 
(or  +y)  side.  The  partitioned  form  of  H  is  discussed  in  the  following 
section. 


9 


AEDC-TR-72-162 


3.2  DESCRIPTION  OF  PROGRAM  B 


The  purpose  of  Program  B  is  twofold:  (1)  to  perform  the  inversion 
of  the  H  matrix,  and  (2)  to  create  a  magnetic  tape  on  which  the  matrices 
HDIAG,  H"1,  H,  and  G  are  written.  (HDIAG  is  a  column  matrix  whose 
elements  are  formed  from  the  principal  diagonal  of  H. ) 


Prior  to  inversion,  the  elements  of  the  H  matrix  are  normalized  by 
the  elements  of  its  principal  diagonal.  Thus  the  resulting  matrix  has 
the  value  of  unity  everywhere  on  the  principal  diagonal  and  is  written 
in  partitioned  form  (see  Eq.  (26)  of  Ref.  1): 


II 


H<1>  ]  H<2) 

H<2)  !  H(l) 


Likewise,  it  can  be  shown  that  the  inverse  of  H  is  written  in  partitioned 
form  (see  Eq.  (28)  of  Ref.  1): 


1 

A(1> 

A(2) 

A<2) 

A<» 

The  FORTRAN  code  written  to  perform  the  calculation  of  A^  and 
A'  '  has  been  devised  with  the  objectives  of  (1)  being  able  to  invert  the 
largest  possible  matrix  within  the  limitations  imposed  by  the  size  of  the 
available  core,  and  (2)  minimizing  the  computer  time  required  to  exe¬ 
cute  the  calculations.  The  salient  feature  of  the  algorithm  that  has  been 
derived  to  satisfy  these  mutual  requirements  is  that  storage  locations 
are  reserved  in-core  to  accommodate  only  one  square  matrix.  The 
size  of  this  matrix  is  NVORT  rows  x  NVORT  columns,  where  NVORT  is 
the  number  of  vortices  in  the  network  on  one  side  of  the  x-z  plane  of 
symmetry  of  a  planform.  In  addition,  an  option  has  been  provided  for 
segmenting  the  program  into  two  separately  executed  submittals.  This 
is  to  allow  for  those  instances  in  which  the  size  of  the  H  matrix  is  so 
large  that  an  excessive  amount  of  computer  time  would  be  required  to 
perform  the  inversion  from  beginning  to  end  in  one  submittal. 

In  order  to  facilitate  the  reading  of  the  computer  code  for  Program 
B,  a  summary  of  the  sequence  of  the  intermediate  calculations  is  pre¬ 
sented  for  the  special  case  where  the  entire  inversion  is  performed  in 
one  submittal  of  the  program: 
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Normalize  by  the  elements  of  its  principal  diagonal  (IIDIAG) 
WRITE(21)  HDIAG 

Compute  ^ 

Normalize  11^  by  the  elements  of  the  principal  diagonal  of 
Compute  II(2)H(1)_1 
Compute  H(2)H(irlH(2) 

Compute  ^  ^ 


Compute  A(1)  =  [h(1)  -  H(2)H(])  V25]  and  WRITE(21)  A< » 

Compute  A^  =  —  A^H^H^h  and  WRITE(2l) 

WRITE(21)  H(1),  H(2),  G 


3.3  DESCRIPTION  OF  PROGRAM  C 

This  program  uses  the  output  from  Program  B  to  compute  aerody¬ 
namic  characteristics  and  (as  an  option)  separated  store  trajectories. 
The  computer  requirements  in  terms  of  internal  memory  are  of  such 
magnitude  that  it  is  necessary  to  subdivide  the  program  into  three  sepa¬ 
rately  compiled  job  steps.  Each  of  these  will  be  described  in  turn. 

3.3.1  First  Job  Step 

The  purpose  of  this  step  is  to  transfer  a  subset  of  the  data  written 
on  magnetic  tape  in  Program  B  onto  a  direct-access  device.  The  pur¬ 
pose  of  this  operation  is  to  achieve  faster  execution  times  in  the  third 
job  step. 

There  are  two  options  which  may  be  exercised  in  this  step.  If  it  is 
desired  to  show  by  substitution  (a  posteriori  in  the  third  job  step)  that 
the  computed  values  of  vortex  strengths  satisfy  the  matrix  equation  for 
jr-jj,  Eq.  (9),  then  the  H  matrix  is  transferred  from  tape  to  disk;  other¬ 
wise,  it  is  not.  The  second  option  concerns  the  calculation  of  the  pres- 
,  sure  coefficient  distribution  (in  the  third  step).  If  it  is  desired  to  per¬ 
form  this  calculation,  the  influence  coefficients  at  boundary  points  are 
transferred  from  tape  to  disk;  otherwise,  they  are  not. 
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3.3.2  Second  Job  Step 

The  primary  functions  of  this  step  are  as  follows:  (1)  to  read  input 
data,  which  comprise  values  for  parameters  of  the  problem  and  the 
NUFF,  from  punched  cards  and  to  pass  this  data  to  the  following  job 
step,  (2)  to  determine  the  coordinates  of  the  line  segments  comprising 
the  vortex  network,  and  (3)  to  compute  the  locations  of  the  control 
points  at  which  the  flow -field  vector  is  constrained  to  be  in  a  prescribed 
direction.  (Items  2  and  3  are  also  computed  in  Program  A. ) 

3.3.3  Third  Job  Step 

The  FORTRAN  code  for  this  step  is  composed  of  a  MAIN  program 
and  subroutines  VORLAT,  FRESTR,  VELOCY,  ACOEFF,  and  AXES. 
There  are  two  optional  versions  of  -this  MAIN  program,  depending  upon 
whether  or  not  it  is  desired  to  perform  trajectory  calculations.  The 
subroutines  are  all  identical  for  these  two  versions. 

The  primary  purpose  of  the  trajectory  version  of  the  MAIN  program 
is  to  provide  values  for  many  of  the  parameters  which  enter  into  the 
equations  of  motion,  and  then  to  numerically  integrate  these  equations. 
The  other  version  has  been  coded  for  the  purpose  of  defining  values  of 
variables  used  in  calculations  in  the  subroutines. 

Vorticity  and  velocity  distributions  are  computed  in  SUBROUTINE 
VORLAT.  Values  of  Tj  are  given  by  the  solution  of  Eq.  (9)  by  matrix 
inversion,  and  the  formula  for  velocity  at  the  field  point  k  is  (see 
Eq.  (15)  of  Ref.  1) 


Vu  =  U. 


N. 

i 

2 

j=l 


Gk,irj 


(15) 


The  purpose  of  SUBROUTINE  FRESTR  is  to  interpolate  on  experi¬ 
mental  values  of  the  NUFF  to  determine  the  downwash,  sidewash,  and 
magnitude  of  velocity  at  points  on  the  surface  of  the  store.  Three  sets 
of  such  interpolations  are  performed;  the  first  set  of  interpolated  values 
is  obtained  at  the  boundary  points,  the  second  at  the  midpoints  of  span- 
wise  segments  of  the  vortex  network,  and  the  third  set  at  midpoints  of 
chordwise  segments. 

No  calculations  are  performed  in  SUBROUTINE  VELOCY.  The 
sole  purpose  of  this  subroutine  is  to  print  (as  an  option)  the  distribu¬ 
tion  of  velocities. 
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SUBROUTINE  ACOEFF  performs  aerodynamic  calculations.  As  an 
optional  capability  the  pressure  coefficient  can  be  computed  at  each  of 
the  boundary  points,  using  Eqs.  (23)  and  (24)  of  Ref.  1  (see  also 
Section  IV-h  of  the  Appendix  to  Ref.  3).  The  distribution  of  aerodynamic 
forces  on  a  planform  is  determined  using  the  Kutta-Joukowski  law, 

Eq.  (10),  and  these  forces  are  then  summed.  The  detailed  equations  to 
accomplish  these  results,  which  are  incorporated  in  the  computer  code, 
are  given  in  Eqs.  (IV-a)  through  (IV-g)  of  Ref.  3. 

The  coordinate  transformations  relating  components  of  variables 
in  wind  axes  to  the  components  in  a  body  axis  reference  system  utilize 
the  coefficients  computed  in  SUBROUTINE  AXES.  The  formulas  for 
these  coefficients  can  be  found  on  p.  31  of  Ref.  4. 


3.4  COMPUTING  TIME 

The  vortex-lattice  solutions  reported  herein  were  obtained  on  an 
IBM  370/155  digital  computer  whose  Central  Processing  Unit  (CPU)  can 
store  a  source  program  of  45,000  decimal  words  using  internal  memory. 
Examples  will  be  cited  of  computational  times  required  to  execute  solu¬ 
tions.  The  time  required  varies  with  the  number  of  vortices,  since  the 
execution  time  is  a  function  of  the  size  of  the  matrices  containing  the 
geometric  factors  and  the  number  of  elements  in  these  matrices  varies 
approximately  as  the  number  of  vortices  squared.  A  representative 
calculation  assuming  156  vortices  on  each  side  of  the  plane  of  geometric 
symmetry  and  asymmetry  of  flow  about  the  x-z  plane,  equivalent  to  a 
312-vortex  problem,  requires  10  min  to  execute  Program  A,  and  14  min 
to  execute  Program  B. 

The  time  required  to  execute  Program  C  is  virtually  all  consumed 
in  performing  the  calculation  of  the  force  coefficients  in  the  third  job 
step  of  this  program.  Since  a  significant  amount  of  this  time  is  expended 
in  transferring  data  from  external  memory  into  the  core  of  the  CPU,  a 
procedure  to  optimize  the  calculations  has  been  devised  which  consists 
of  computing  the  force  coefficients  for  a  number  of  cases  each  time  the 
data  are  read  from  external  memory.  (A  case  means  one  orientation 
of  a  store  with  respect  to  the  parent  aircraft;  the  external  memory  used 
is  a  direct  access  device. )  The  maximum  number  of  cases  that  can  be 
computed  each  time  the  external  memory  is  read  is  limited  by  the  amount 
of  core  available  to  store  intermediate  results.  In  the  present  applica¬ 
tion  the  programmed  procedure  is  to  read  the  direct  access  device,  com¬ 
pute  five  cases  (the  number  of  cases  is  an  input  to  Program  C),  rewind 
the  direct  access  device,  and  repeat  this  sequence  any  desired  number 
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of  times.  It  is  found  that  the  execution  of  five  cases  requires  1  min 
25  sec;  therefore,  each  potential  flow  solution  requires  an  average  of 
17  sec  of  CPU  time. 

The  particular  option  of  the  numerical  method  devised  to  compute 
trajectories  that  has  been  exercised  to  produce  the  results  of  Section  4.  5 
requires  five  vortex -lattice  cases  to  be  computed  for  each  advance  of 
two  time  steps  in  the  numerical  integration  of  the  equations  of  motion. 
Thus,  for  example,  in  the  sample  trajectories  reported  herein  in  which 
each  of  16  time  steps  was  specified  to  be  0.  05  sec  of  real  time,  a  tra¬ 
jectory  of  0.8  sec  total  real  time  required  11  min  of  CPU  time. 


SECTION  IV 

RESULTS  OF  CALCULATIONS 


As  shown  in  Fig.  1,  the  physical  shape  of  the  M-117  bomb  body  was 
represented  by  a  system  of  horseshoe  vortices  having  the  ''trailing" 
elements  running  forward  to  the  nose  tip,  whence  they  became  super¬ 
imposed  and  trailed  back  downstream  to  infinity  along  the  bomb  axis. 

The  fins  were  modeled  by  horseshoe  vortices  having  trailing  segments  in 
the  usual  direction.  To  obtain  a  reasonable  degree  of  agreement  with 
experiment,  it  was  found  necessary  to  impose  a  wakelike  character  on 
the  flow  in  the  base  region  by  extension  of  the  vortex  network  downstream 
of  the  actual  bomb  body  (Ref.  1).  These  wake  vortices  were  used  only 
to  control  the  velocity  pattern  near  the  base  of  the  bomb;  forces  on 
these  vortices  were  not  included  as  force  on  the  bomb. 


4.1  CORRECTIONS  TO  CALCULATED  FORCE  COEFFICIENTS 

To  ensure  that  the  calculated  forces  represented  the  best  approach 
to  reality,  three  different  corrections  were  added  to  the  force  coefficients 
resulting  from  the  potential  flow  calculations. 

4.1.1  Base  Force  Correction 

As  described  in  Ref.  1,  summation  of  the  Kutta-Joukowski  forces 
over  the  vortex  network  (with  wake  vortices  excluded  from  the  summation) 
results  in  a  large,  unbalanced  internal  pressure  force  and  a  net  thrust  on 
the  network.  This  occurs  because  the  vorticity  representing  the  solid 
base  and,  hence,  the  internal  and  external  force  on  the  base,  is  not 
accounted  for.  To  allow  for  this  neglected  base  force,  a  correction  to 
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the  calculated  axial-force  coefficient  is  given  by 


AC 


^base 


(16) 


For  the  purpose  of  comparison  with  wind  tunnel  data,  the  usual  reduc¬ 
tion  to  zero  base  drag  conditions,  Cp^  =  0,  is  made.  The  pressure 

coefficients  inside  the  vortex  network  in  the  base  region  were  observed 
to  vary  with  angle  of  pitch  or  yaw  and  were  given  approximately  by  the 
curve-fit: 


C  =  0.992  -  0.00018  x  (i/ or  de^l2 

f  L 


(17) 


The  base-force  correction  can  be  seen  to  be  very  nearly  the  stagnation 
pressure  acting  over  the  base  area.  Lastly,  the  base  area  in  this  case 
was  taken  to  be  the  area  of  the  octagonal  base  of  the  vortex  network, 
rather  than  the  area  of  the  circular  base  of  the  actual  bomb  shape.  The 
resulting  correction  was  thus  given  by 

AC.  =  (0.495  x  0.9)  (0.992  -  0.00018)  x  (v  or  deg)2 

(18) 


4.1.2  Compressibility  Correction 

After  the  addition  of  the  base -force  correction,  all  force  coefficients 
calculated  for  incompressible  flow  over  the  (possibly  contracted)  body 
shape  were  corrected  for  compressibility  by  Eq.  (12)  or  (13). 

4.1.3  Skin-Friction  Correction 

Finally,  an  approximate  allowance  was  made  for-  contribution  of  skin 
friction  to  axial  force: 

ACa  =  0.0316  for  a  laminar  boundary  layer 
fric 

=  0.0935  for  a  turbulent  boundary  layer  (19) 

e 

These  corrections  were  based  on  flat  plate  skin  friction  at  Rex  =  1.1  xlO  , 
corresponding  to  the  wind  tunnel  Reynolds  number  at  M  =  0.  5.  Since 
drag  exerts  only  a  minor  influence  on  separation  trajectories,  high 
accuracy  on  was  not  considered  important,  and  the  skin-friction 
corrections  were  simply  applied  as  constants  at  all  conditions. 
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4.2  CORRECTION  OF  EXPERIMENTAL  FORCE  DATA 


Because  of  the  marked  sensitivity  of  base -region  flows  to  Reynolds 
number,  experimental  axial-force  data  on  blunt-base  bodies  are  usually 
corrected  to  a  standard  condition  of  zero  base  drag,  defined  as  the  con¬ 
dition  pjj  =  or  Cpk  =  0.  The  standard  correction  expression  for  this 
condition  is 


ACa 


s 

s 


base 


ref 


(20) 


Since  base  pressure  measurements  were  not  made  during  the  test  re¬ 
ported  in  Ref.  6,  it  was  simply  assumed  that  the  base  pressure  was 
equal  to  pressure  on  the  bomb  just  forward  of  the  base,  as  given  by  the 
vortex-lattice  calculations, 


ACa  =  -0.065  X  0.495  =  -0.0322 


4.3  COMPARISON  OF  CALCULATIONS  AND  MEASUREMENTS  IN 

UNIFORM  FLOW 

Calculated  force  coefficients  and  measured  force  coefficients  on  the 
M-117  bomb  in  uniform  flow  are  compared  in  Figs.  2  and  3.  Both 
theory  and  experiment  have  been  adjusted  to  as  nearly  the  same  basis  of 
comparison  as  possible  by  use  of  the  corrections  discussed  above. 

In  Fig.  2,  the  normal-force  and  pitching -moment  coefficients  are 
plotted  versus  angle  of  pitch.  Theoretical  curves  are  given  for  M  =  0, 

0.  5,  and  0.  85.  Experimental  data  are  given  for  M  =  0.  5  and  0.  85.  A 
general  agreement  of  about  10  percent  exists  at  M  =  0.  5. 

The  effect  of  Mach  number  on  the  theoretical -experimental  force 
coefficient  comparison  is  given  in  Fig.  3.  The  calculated  normal -force 
coefficient  at  v  =  10  deg  (Fig.  3a)  displays  a  nearly  constant  10-percent 
displacement  from  the  measured  values.  The  calculated  pitching- 
moment  coefficient  at  v  -  10  deg  (Fig.  3b)  however,  displays  an  appreci¬ 
ably  greater  influence  of  Mach  number  than  does  the  experimental  data. 

The  calculated  axial-force  coefficient  with  laminar  boundary  layer  at 
zero  pitch  (Fig.  3  c)  is  17  percent  greater  than  the  wind  tunnel  measure¬ 
ment  at  M  =  0.  5,  but  the  theoretical  drag  rise  given  by  Eq.  (12)  is  much 
greater  than  observed  in  the  wind  tunnel  data.  At  M  =  0.  85,  the  calculated 
axial -force  coefficient,  corrected  for  compressibility,  is  3.  5  times  the 
measured  value. 
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4.4  COMPARISON  OF  CALCULATIONS  AND  MEASUREMENTS  IN 

F-4C  FLOW  FIELD 

The  force  characteristics  of  the  M-117  bomb  were  calculated  for 
twelve  different  locations  of  the  bomb  in  the  disturbed  flow  field  of  the 
F-4C  parent  aircraft,  three  spanwise  locations  and  four  vertical  loca¬ 
tions  (Fig.  4).  The  outboard  pylon  is  shown  in  Fig.  4  in  a  vertical 
orientation,  which  corresponds  to  that  of  the  full-scale  aircraft  when 
carrying  an  external  fuel  tank.  The  flow-field  data  of  Ref.  6,  however, 
on  which  the  present  results  are  based,  were  obtained  for  a  model  having 
the  outboard  pylon  canted  outboard  at  7.  5  degrees.  The  flow -field  data 
used  as  boundary  conditions  were  obtained  from  the  test  reported  in 
Ref.  6.  These  calculations  were  similar  to  those  reported  in  Ref.  1, 
with  the  following  exceptions: 

1.  All  three  components  of  the  nonuniform  flow  field,  not 
just  downwash  angles,  were  used  as  boundary  condi¬ 
tions  on  the  bomb. 

2.  Both  yaw  and  pitch  orientations  (but  not  in  combination) 
were  included. 

3.  Compressibility  corrections  to  the  potential  flow  calcula¬ 
tions  were  included. 

4.  Bomb  model  was  rolled  to  put  fins  in  vertical  and  hori¬ 
zontal  planes,  corresponding  to  the  configuration  used 
in  the  wind  tunnel. 

4.4.1  Comparison  at  M  =  0.50 

The  variation  of  normal-force  and  pitching- moment  coefficients  with 
pitch  angle  for  ZF  =  3.13  to  9.13  in.  at  YP  =  -3.16  in.  and 
M  =  0.  50  is  given  in  Fig.  5.  The  uniform  flow  force  characteristics 
are  also  presented  for  comparison.  In  Fig.  6  are  given  C^,  Cm,  Cy. 
and  Cjj  versus  the  vertical  separation  distance,  ZP,  at  constant  pitch 
angles,  zero  yaw,  and  YP  =  -3.16  in.  The  absolute  values  of  the 
calculated  coefficients  are  not  in  good  agreement  with  the  measured 
values,  although  the  calculated  force  coefficients  are  in  slightly  better 
agreement  than  are  the  moment  coefficients.  The  discrepancies  are  on 
the  order  of  40  to  50  percent,  and  the  compressibility  corrections  do  not 
result  in  any  systematic  reduction  of  the  differences. 

If,  however,  the  incremental  effects  of  the  NUFF  on  the  force 
coefficients  are  considered,  there  is  clearly  a  better  agreement  between 
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the  calculations  and  the  measurements.  In  almost  every  case  in  Fig.  6, 
the  shapes  of  the  theoretical  curves  are  quite  similar  to  the  shapes  of 
the  experimental  curves.  This  fact  is  demonstrated  for  all  the  cases 
calculated  in  Figs.  7a  through  1,  in  which  the  theoretical  results  have 
been  arbitrarily  adjusted  to  the  experimental  values  at  the  maximum 
distance  of  separation  from  the  parent  aircraft,  ZP  =  9.  13  in.  These 
data  cover  all  twelve  locations  of  the  bomb  and  the  four  force  coefficients, 
Cn>  Cm,  CYj  and  Cn.  Throughout  all  of  these  plots  the  trend  of  the 
individual  coefficient  with  ZP  is  well  predicted  by  the  potential  flow 
calculations.  The  largest  single  discrepancy  is  26  percent,  in  Cm  at 
YP  =  -3.  16,  ZP  =  3.  13,  and  v  =  2  deg,  but  the  average  discrepancy  is 
from  4  to  6  percent  (Fig.  8).  Variation  of  average  discrepancy  with 
vertical  separation  distance  is  also  shown  in  Fig.  8.  The  increasing 
discrepancy  at  small  separations  is  probably  the  result  of  mutual  inter¬ 
ference,  which  is  not  accounted  for  in  the  potential  flow  calculations. 

By  extrapolation,  it  is  estimated  that  the  average  discrepancy  does  not 
exceed  10  percent  until  the  separation  distance  is  about  one-half  the 
bomb  diameter  (0.  4  in. ).  The  compressibility  correction  appears  to  be 
slightly  beneficial  at  large  separation,  but  it  becomes  of  negative  value 
in  the  mutual  interference  region. 

This  result,  that  incremental  behavior  of  force  coefficients  is  well 
predicted  by  calculations,  suggests  the  possibility  of  a  combined 
theoretical/ experimental  approach  in  which  experimental  force  coeffi¬ 
cients  measured  at  some  convenient  location  away  from  a  parent  aircraft 
are  adjusted  by  means  of  potential  flow  results.  Ideally,  the  experi¬ 
mental  force  coefficients  would  be  measured  only  in  the  free  stream. 

In  the  present  case,  values  measured  at  ZP  =  9. 13  in.  are  used  as  a 
reference  because  of  an  unexplained  ambiguity  between  the  uniform  flow 
and  the  NUFF  measurements.  This  ambiguity  is  manifested  as  a  failure 
of  the  experimental  data  to  fair  smoothly  and  asymptotically  to  the  mea¬ 
sured  uniform  flow  values  of  the  force  coefficients,  e.  g. ,  C]\j  at  v  =  -4  deg, 
YP  =  -3.  16  in.  (Fig.  6a)  and  Cm  at  v  =  -4  deg,  YP  =  -3.  16  in.  (Fig.  6b). 
The  calculated  results  from  the  NUFF,  on  the  other  hand,  can  be  faired 
into  the  potential  flow  results  in  uniform  flow  with  a  minimum  effort. 

4.4.2  Comparison  at  M  =  0.85 

As  might  be  expected  from  results  in  uniform  flow  (Fig.  3),  the 
discrepancies  in  absolute  values  of  calculated  and  experimental  force 
coefficients  were  found  to  be  even  greater  at  M  =  0.  85  than  at  M  =  0.  5. 

On  the  incremental  basis,  however,  the  results  are  much  closer  to  the  • 

M  =  0.  5  results.  Instead  of  the  complete  incremental  comparison  of 
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calculated  and  measured  coefficients  given  in  Fig.  7  for  M  =  0.  5,  in 
Fig.  9  only  two  representative  comparisons  are  given  at  M  =  0.  85. 

The  best  incremental  comparison  is  for  C]$  versus  ZP  at  YP  =  -3.  16  in. 
(Fig.  9a) ,  and  the  worst  comparison  is  for  Cm  versus  ZP  at 
YP  =  -6.  16  in.  (Fig.  9b).  A  summary  of  the  average  discrepancy  be¬ 
tween  theory  and  experiment  at  M  =  0.  85  is  given  in  Fig.  10.  At  the 
higher  Mach  number  the  NUFF  has  a  greater  effect  on  the  moment 
coefficients  than  on  the  force  coefficients.  The  average  discrepancies 
are  4  percent  for  force  coefficients  and  8  percent  for  moment  coeffi¬ 
cients.  Also,  the  variation  of  the  average  discrepancies  with  the 
separation  distance  shows  that  sensitivity  to  mutual  interference  near 
the  aircraft  is  much  greater  at  the  higher  than  at  the  lower  Mach  num¬ 
ber.  Discrepancies  reach  10  percent  at  about  2  diameter  separations 
for  force  coefficients  and  at  about  3.  5  diameters  for  moment  coeffi¬ 
cients.  At  the  separation  at  which  there  is  a  10-  percent  discrepancy 
in  force  coefficient,  there  is  a  20-  percent  discrepancy  in  moment 
coefficient.  The  compressibility  correction  ranges  from  slightly  bene¬ 
ficial  to  slightly  non-beneficial. 


4.5  TYPICAL  STORE  SEPARATION  TRAJECTORIES 

In  order  to  demonstrate  the  viability  of  the  trajectory/potential 
flow  routine  of  Program  C  and  to  determine  time  of  computation,  calcu¬ 
lations  were  performed  for  several  typical  separation  trajectories. 

The  solutions  were  obtained  for  a  250-lbm  M-117  bomb  launched  at  a 
5000 -ft  altitude  at  M  =0.5  from  Station  No.  2  of  an  otherwise  empty 
Triple  Ejection  Rack  (TER)  located  on  the  left  inboard  pylon  of  an 
F-4C  (Fig.  4).  The  bomb  was  assumed  to  be  at  a  pitch  attitude  of 
-0.  7  deg  with  respect  to  the  free  stream  upon  release  from  the  car¬ 
riage.  Pitch  and  yaw  damping  rates  were  both  set  equal  to  -2.  319  per 
radian  (assuming  the  definitions  of  each  rate  to  be  based  upon  body 
length).  Roll  damping  was  neglected.  The  initial  trajectory  conditions 
resulted  from  an  assumed  ejector  force  of  1000  lb  applied  through  a 
stroke  of  0.  2552  ft  at  45  deg  from  the  vertical  in  a  direction  passing 
through  the  center  of  gravity  of  the  bomb.  The  trajectories  shown  in 
Fig.  11  commence  at  the  end  of  the  ejector  stroke,  i.  e. ,  at  the  instant 
the  store  separates  from  the  TER.  The  translational  displacements 
are  computed  with  respect  to  a  wind  axes  coordinate  system  where  the 
origin  is  located  at  the  store  center  of  gravity  at  the  instant  of  separa¬ 
tion;  the  rotational  displacements  are  with  respect  to  the  store  body 
axes  reference  system. 


19 


AEDC-TR-72-162 


In  order  to  indicate  the  possible  magnitude  of  perturbations  to  store 
motion  caused  by  the  nonuniform  flow  field,  results  of  trajectory  calcu¬ 
lations  for  a  store  assumed  ejected  into  both  uniform  and  nonuniform 
flow  fields  are  shown.  For  convenience,  the  nonuniform  flow  calcula¬ 
tions  were  performed  using  absolute  values  of  force  coefficients  obtained 
from  the  potential  flow  calculations,  rather  than  by  use  of  the  incremen¬ 
tal  approach  suggested  in  Section  4. 4. 1.  This  approach  was  considered 
compatible  with  the  limited  intent  of  demonstration  of  the  program  capa¬ 
bility,  independent  of  any  considerations  of  accuracy.  The  most  notable 
differences  caused  by  flow  nonuniformity  are  in  the  angular  motion;  the 
most  significant  effect  on  linear  translation  is  in  the  x-direction. 

The  amplitudes  of  the  pitch  and  yaw  oscillations  attenuate;  the  roll 
amplitude  (not  shown  in  Fig.  11}  increases  linearly  with  time  in  the 
absence  of  roll  damping.  It  may  be  seen  that  even  in  a  uniform  flow 
field  the  instantaneous  pitch  and  yaw  motions  occur  about  average  ampli¬ 
tudes  which  are  nonzero.  The  principal  reason  for  this  is  that  the 
existence  of  finite  velocity  components  of  the  store  in  the  Y-  and  Z- 
directions  gives  rise  to  effective  angles  of  pitch  and  yaw  different  from 
the  initial  values  of  these  angles.  Hence,  it  is  expected  that  these 
effective  angles  will  tend  to  be  mean  values  of  the  rotational  excursions. 


SECTION  V 
SUMMARY 


Results  of  calculations  may  be  summarized  as  follows: 

1.  A  potential  flow  computer  program  based  on  vortex 
singularities,  capable  of  accepting  nonuniform  flow 
boundary  conditions  but  previously  restricted  to 
flows  having  a  plane  of  symmetry,  was  modified  to 
eliminate  this  restriction.  The  added  capability  did 
not  alter  any  of  the  basic  mathematics  of  the  program 
but  did  effectively  double  the  size  of  the  system  of 
simultaneous  equations  representing  the  flow  for  any 
given  body. 

2.  In  order  to  perform  the  expanded  calculations  within 
the  limits  of  computer  internal  memory  and  desired 
computer  execution  time,  the  program  was  reorgan¬ 
ized  into  three  separate  programs.  The  first  two  of 
these  programs  contain  purely  geometrical  calcula¬ 
tions  and  require  execution  only  one  time  for  a  given 
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body  geometry  and  Mach  number.  The  third  program 
performs  calculations  of  vorticity  distribution,  pres¬ 
sure  coefficient  distribution,  and  force  coefficients  on 
the  body  and  is  executed  one  time  for  each  set  of 
boundary  conditions  (i.  e. ,  orientation  and  location  in 
a  nonuniform  flow  field).  Once  the  initial  geometric 
calculations  are  completed,  potential  flow  solutions 
are  generated  by  the  third  program  in  an  average  com¬ 
puter  time  of  17  sec  for  a  vortex  network  composed  of 
312  horseshoe  vortices. 

3.  The  first  program  performs  mainly  the  calculation  of 
influence  coefficients,  and  performs  the  computations 
in  10  min  for  a  network  of  312  vortices. 

4.  The  second  program  performs  mainly  the  inversion  of 
the  312  rows  by  312  columns  coefficient  matrix  neces¬ 
sary  to  the  potential  flow  solutions.  Since  the  vortex 
network  possessed  geometric  symmetry,  even  though 
in  general  there  was  no  flow  symmetry,  the  geometric 
matrices  were  partitioned,  and  the  inversion  then  in¬ 
volved  processing  of  only  156  rows  by  156  columns 
matrices.  A  computer  routine  was  devised  which  per¬ 
forms  the  inversion  in  14  minutes. 

5.  In  addition  to  reorganization  of  the  structure  of  the 
program,  additions  were  made  to  account  for  a  proper 
base  force  on  the  vortex  network,  a  linearized  sub¬ 
sonic  compressibility  correction,  and  a  skin-friction 
contribution.  With  these  corrections,  the  force  char¬ 
acteristics  computed  for  a  3 12 -vortex  model  of  the 
M-117  bomb  in  a  uniform  flow  were  found  to  agree  with 
wind  tunnel  measurements  (except  for  drag)  to  within 
10  percent  at  a  Mach  number  of  0.5.  To  achieve  this 
result,  it  was  necessary  to  include  in  the  vortex 
modeling  of  the  bomb  a  number  of  vortices  having  the 
sole  purpose  of  imposing  a  wakelike  flow  at  the  base 

of  the  bomb. 

6.  The  force  characteristics  on  the  M-117  bomb  in  pitch 
and  yaw  were  calculated  by  the  potential  flow  program 
at  12  different  locations  in  the  disturbed  flow  field 
under  an  F-4C  aircraft  having  an  empty  TER  on  the 
inboard  pylon  and  a  3 70 -gal  external  fuel  tank  on  the 
outboard  pylon.  The  absolute  values  of  these  force 
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coefficients  were  observed  to  differ  from  comparable 
wind  tunnel  measurements  by  up  to  50  percent  at  a 
Mach  number  of  0.  5  and  by  greater  amounts  at  a 
Mach  number  of  0.  85. 

7.  On  the  other  hand,  the  incremental  variations  of  the 
calculated  coefficients  in  the  nonuniform  flow  field 
were  found  to  be  in  much  closer  agreement  with  mea¬ 
surements.  The  average  discrepancy  between  calcu¬ 
lated  and  measured  incremental  variations  was  from  4 
to  6  percent  at  a  Mach  number  of  0.  5.  At  a  Mach 
number  of  0.85,  the  average  discrepancy  was  from  4 
to  6  percent  for  force  coefficients  and  from  8  to  10 
percent  for  force  coefficients  and  from  8  to  10  percent 
for  moment  coefficients. 

8.  Discrepancies  significantly  greater  than  the  average 
were  observed  at  small  separations  of  the  bomb  and 
aircraft,  apparently  because  of  neglect  of  mutual 
interference  in  the  potential  flow  program.  At  a 
Mach  number  of  0.  5,  a  10-percent  discrepancy  was 
reached  at  a  separation  distance  of  1/2  the  bomb 
diameter,  while  at  a  Mach  number  of  0.  85,  the 
10-percent  discrepancy  occurred  at  two  diameters  for 
force  coefficients  and  3.  5  diameters  for  moment 
coefficients. 

9.  In  view  of  the  relatively  accurate  predictions  of  in¬ 
cremental  force  coefficient  behavior  (as  opposed  to 
absolute  values),  it  was  apparent  that  a  hybrid 
method  of  force  coefficient  determination  in  a  dis¬ 
turbed  flow  field  was  possible.  Force  coefficients 
measured  on  a  store  at  a  limited  number  of  points 
far  from  a  parent  aircraft  could  apparently  be 
incremented  at  other  points  in  the  disturbed  flow 
field  by  reference  to  potential  flow  solutions. 

10.  The  linearized  compressibility  correction  was  found 
to  have  very  little  influence  in  determination  of  the 
incremental  variation  of  force  coefficients. 

11.  A  six-degree-of -freedom  trajectory  routine  was 
appended  to  the  third  program,  using  the  same  basic 
equations  of  motion  as  in  the  AEDC/PWT  CTS.  In 
order  to  minimize  the  number  of  time  steps  required 
for  a  given  accuracy  of  trajectory  (and,  hence,  the 
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number  of  potential  flow  solutions),  a  more  sophisti¬ 
cated  numerical  integration  procedure  (fourth-order 
Runge-Kutta)  was  used.  A  limited  number  of 
M-117/F-4C  trajectories  were  computed  with  non- 
uniform  and  uniform  flow  force  coefficients, 
respectively,  to  display  the  magnitude  of  effects  of  the 
disturbed  flow  field. 
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On  tht  TER  '  NOTE:  All  dimension*  In  Inchon 


a.  Dimensional  Sketch  of  1/20-Scale  M-117  Bomb  Model 


b.  312  Vortex  Model  for  Approximation  of  M-117  Bomb 
Fig.  1  Shape  of  M-1 17  Bomb 
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c.  Calculated  Axial- Force  Coefficient 
Fig.  3  Effect  of  Mach  Number  on  Calculated  and  Experimental 
Force  Coefficients,  Uniform  Flow 


29 


a.  CN  versus  ZP,  Constant  Pitch,  Zero  Yaw 


b.  Cm  versus  ZP,  Constant  Pitch,  Zero  Yaw 


Fig.  6  Comparison  of  Absolute  Values  of  Calculated  and  Experimental  Force  Coefficients  in 
F-4C  Flow  Field,  M  =  0.5,  YP  =  -3.16 


a.  CN  versus  ZP,  Constant  Pitch,  b.  CN  versus  ZP,  Constant  Pitch 

Zero  Yaw,  YP  =  -3.16  Zero  Yaw,  YP  =  -4.66 

Fig.  7  Comparison  of  Incremental  Variation  of  Calculated  and  Experimental  Force  Coefficients 
in  F-4C  Flow  Field,  M  =  0.5 


g.  CY  versus  ZP,  Constant  Yaw, 
Zero  Pitch,  YP  =  -3.16 


Fig. 


h.  CY  versus  ZP,  Constant  Yaw, 
Zero  Pitch,  YP  =  -4.66 


Continued 


Cy 

0.40 


YPg-6.16 


i.  CY  versus  ZP,  Constant  Yaw, 
Zero  Pitch,  YP  =  -6.16 


Fig. 


j.  Cn  versus  ZP,  Constant  Yaw, 
Zero  Pitch,  YP  =  -3.16 


Continued 
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b.  Variation  of  Average  Theoretical/Experimental  Discrepancy  with  ZP 
Fig.  8  Average  Discrepancy  Between  Calculated  and  Experimental  Force  Coefficient 
Incremental  Basis,  Pitch  and  Yaw  =  -4  deg  and  6  deg,  M  =  0.5 


40 


VP-6.16 
M  ■  0.85 


VP  — 6.16 
M  ■  0.8S 


CALCULATED 
Incomprtitiblt 
M  ■  0.03  * 


EXPERIMENT 


a.  Best  Comparison,  CY  versus  ZP,  Constant 
Yaw,  Zero  Pitch,  YP  =  -6.16 


b.  Worst  Comparison,  Cm  versus  ZP,  Constant 
Pitch,  Zero  Yaw,  YP  =  -6.16 


Fig.  9  Comparison  of  Incremental  Variation  of  Calculated  and  Experimental 
Force  Coefficients  in  F-4C  Flow  Field,  M  =  0.85 
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CN  Cm  CY  Cn  OVERALL 

AVERAGE 

a.  Average  Discrepancy  in  CN ,  Cm ,  CY ,  C„ ,  and  Overall 


b.  Variation  of  Average  Discrepancy  with  ZP 
Fig.  10  Average  Discrepancy  Between  Calculated  and  Experimental  Force 

Coefficients,  Incremental  Basis,  Pitch  and  Yaw  =  -4  deg  and  6  deg,  M  =  0.85 
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O -  NONUNIFORM  FLOW 


UNIFORM  FLOW 

MODEL 


Fig.  1 1  Comparison  of  Separation  Trajectories  with  Uniform  Flow  Force 

Coefficients  and  Nonuniform  Flow  Force  Coefficients,  F-4C  Aircraft, 
250-lbm  M-117  Bomb,  on  No.  2  TER  Station,  Inboard  Pylon,  M  =  0.50, 
5000-ft  Altitude,  Pitch  Angle  of  A/C  =  0.30  deg,  1000-lb  Ejector 
Force  at  45  deg  to  Vertical 
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APPENDIX  II 

USER'S  GUIDE  TO  COMPUTER  PROGRAM 


A  user's  guide  for  application  of  the  vortex-lattice  and  store  tra¬ 
jectory  computer  program  is  presented.  This  includes  a  listing  of  the 
source  program,  together  with  a  description  of  the  input  data  and  other 
variables  for  which  values  must  be  furnished  by  the  user.  A  diagram 
of  general  program  structure  and  subroutine  function  is  given  in  Fig. 

II- 1.  In  order  to  assist  the  user  in  becoming  familiar  with  the  opera¬ 
tional  aspects  of  the  program,  input  and  output  data  are  displayed  for  a 
sample  run. 

The  program  is  coded  in  the  FORTRAN  IV  Language  for  execution 
on  the  IBM  System/ 360  or  370  computer.  The  values  for  the  variables 
in  the  program  which  must  be  supplied  by  the  user  are  provided  in  the 
following  forms:  inputs  from  punched  card  data  sets,  magnetic  tape 
units,  and  disk  storage  units:  arithmetic  expressions;  and  maximum 
values  of  subscripts  in  DIMENSION  statements. 

The  unit  of  length  for  all  the  variables  defined  in  the  MAIN  pro¬ 
gram  of  Program  C  is  feet.  An  exception  to  this  occurs  in  the  version 
of  the  MAIN  program  of  Program  C,  which  is  used  when  trajectories 
are  not  computed.  The  units  of  the  coordinates  of  the  point  of  rotation 
of  the  store  (denoted  by  XORIG,  YORIG,  and  ZORIG)  are  inches.  For 
all  other  variables  in  Programs  A  and  C  (the  unit  of  length  does,  not 
enter  into  Program  B),  length  is  prescribed  in  inches.  The  reason  for 
this  distinction  is  that  a  convenient  unit  for  displacement  of  a  full-scale 
store  along  a  trajectory  is  feet,  while  a  convenient  unit  for  a  model 
store  and  its  associated  NUFF  is  inches. 

The  sample  run  assumes  that  the  store  being  analyzed  is  an  M-117 
bomb  modeled  with  156  vortices  on  each  side  of  the  x-z  plane  of  geo¬ 
metrical  symmetry,  and  a  uniform  flow  field.  (This  letter  assumption 
has  been  introduced  to  avoid  the  necessity  of  displaying  NUFF  input 
data  below.  )  The  store  geometry  and  the  vortex  lattice  used  to  model 
the  store  are  shown  in  Fig.  1.  For  the  sake  of  brevity,  only  a  few  rep¬ 
resentative  values  of  output  data  are  presented;  these  should  be  adequate 
for  the  user  to  verify  his  execution  of  the  program. 
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VORTEX-fcATTICE  PROGRAM 
(With  Trajectory  Option) 


Card  Deck 


] 


IK  PUT 


Print:  Geom. 

(Of>t?) 
Tapes  1.  G 
2.  H 


Small  Card 
Deck 

Tapes  #1,*2 


Print 
Tape  A3 
HDIAi 


PROGRAM  A 


MAIN  Constructs  network,  compressibility 

-  trans. .  Constructs  boundary  pts. .  B.P, 

dir.  cosines.  Flow  field  option. 

ICOEFF  -  Calc.  G  infl.  coeffs.  at 
B. P. .  midpoints  of  segments.  Flow 
field  (Opt.),  H-Xatrix.  puts  5  and 
H  on  tapes. 


OUTPUT 


1 


INPUT 


OUTPUT 


Execution  Time 
IBM  370-135 
(312  Vortices) 


ID  Minutes 


PROGRAM  B 

■ 

MAIN  Forms  HDIAG.  norm 
tape  *3  In  order: 
MATINV  -  Inverts 

alizes  H,  puts  on 

HDIAG,  H  H.  G 

H  Matrix 

Card  deck:  NUFF 
Parameters 
Tape  *3 


] 


INPUT 


Print: 

Trajectory 
Force  Coeff. 


] 


OUTPUT 


14  Minutes 


PROGRAM  C 


jat^Job^Steg  -  Transfers  HDIAG ,  H->  B  on 
segments  to  Mag.  disk,  transfers  H 
for  opt.  diagnostics,  transfers 
5  at  B.P.  for  opt.  Cp  calc. 


2nd_Jo^Me£  -  (Re)Ca  leu  la  tea  net  points, 
"’’’“""^"Comp.  Trans,,  Boundary  points,  B.P. 
dir.  cosines. 


Job 


iPft 


rSH  -  Controls  calc.,  integ.  equations 
of  motion. 

(Alt.)  -  Controls  calc. 

VORLAT  -  Calc,  vorticlty.  velocity 
dist. 

FRESTH  -  Interpolates  NUFF 
VeiocV  -  Prints  velocity  diet,  (opt.) 
ACUEtr  -  Calc.  Cp  (Opt.),  force  and 

moment  coeff. 

AXES  -  Coord,  trans. ,  wind  and  body 
axes. 


17  Sec, /Case 
(in  Groups  of  S) 


Fig.  11-1  Diagram  of  Structure  of  Vortex-Lattice  Program 
with  Trajectory  Option 
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2.1  USER'S  GUIDE  TO  PROGRAM  A 
Input  Data 

The  following  data  are  read  from  punched  cards.  (The  first  card 
contains  arbitrary  descriptive  information  furnished  by  the  user.  ) 

AMACH  Free- stream  Mach  number 

KWP  Number  of  wing  parts  (a  wing  part  is  defined  in  Ref. 

3,  p.  12 

NCHORD(IW)  Number  of  vortex  network  points  on  wing  part  IW  in 
the  cordwise  direction  (Ref.  3,  p.  10) 

NSPAN(IW)  Number  of  network  points  in  the  spanwise  direction 

MTIP  =  0  Contiguous  wing  part  tips  (e.  g.  ,  closed  body) 

=  1  Terminal  wing  part  tips  (e.  g. ,  wing,  tail,  fins) 

MROOT  =  0  Contiguous  wing  part  roots  (e.  g. ,  closed  body) 

=  1  Terminal  wing  part  roots  (e.  g.  ,  vertical  tail,  fins) 

NSYM  =  1  Symmetry  about  x-z  plane  prevails  (uniform  flow 

field  and  no  yaw  or  roll) 

=  2  Without  symmetry  about  x-z  plane  (nonuniform  flow 

field  or  yaw  or  roll) 

Influence  coefficients  can  be  optionally  computed  at  as  many  as  four 
sets  of  points.  The  input  which  specifies  whether  or  not  the  calculations 
are  to  be  performed  at  each  of  the  sets  is  IVEL(ISOLVE).  When 
ISOLVE  =  1,  the  set  of  points  is  the  boundary  points;  when  ISOLVE  =  2, 
the  set  of  points  is  the  midpoints  of  spanwise  vortex  segements;  when 
ISOLVE  =  3,  the  set  of  points  is  the  midpoints  of  the  chordwise  vortex 
segments,  and  when  ISOLVE  =  4,  the  points  are  arbitrarily  located  off 
the  surface  of  the  planform. 

IVEL(ISOLVE)  =  0  Do  not  compute  2 

=  1  Compute  (j 

IPRG  =0  Do  not  print  G 

=  1  Print  G 

IPRH  =0  Do  not  print  H 

=  1  Print  H 

EPS,  EPSR  Magnitude  tests  used  in  SUBROUTINE  ICOEFF 

(Ref.  3,  p.  26. )  The  criteria  used  to  specify 
values  of  magnitude  tests  in  the  analysis  re¬ 
ported  herein  are  as  follows:  (1)  that  EPSR  be 
an  order  of  magnitude  less  than  the  smallest 
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of  the  distances  of  boundary  points  to  neighbor¬ 
ing  vortex  segments,  and  (2)  that  EPS  be  an 
order  of  magnitude  greater  than  the  square  of 
EPSR. 

If  velocity  calculations  are  to  be  made  at  points  in  the  flow  field 
off  the  surface  of  the  bomb  (this  requires  specifying  IVEL(4)  =  1),  the 
coordinates  of  these  points  (denoted  by  the  names  XFLOWF,  YFLOWF, 
and  ZFLOWF)  are  read  from  punched  cards. 

Variables  which  the  user  must  define  by  FORTRAN  arithmetic 
expressions  are  (1)  the  cordinates  of  the  network  points  (XNET,  YNET, 
and  ZNET)  and  (2)  the  direction  cosines  (AX,  AY,  and  AZ)  of  the  vor¬ 
tices  extending  downstream  from  trailing  edge  network  points.  An  aero¬ 
dynamic  planform  can  not  be  represented  by  a  vortex  network  in  an  arbi¬ 
trary  manner.  Guidelines  for  proper  selection  of  the  coordinates  of 
network  points  are  given  in  Section  5.  1  of  Ref.  1  and  in  Section  VIII  of 
Ref.  3.  Considerations  involved  in  specifying  the  trailing  vortex  direc¬ 
tion  cosines  are  discussed  in  Section  VIII.  F  of  Ref.  3.  In  performing 
the  calculations  discussed  in  this  report,  the  trailing  vortices  were 
assumed  to-  be  parallel  to  the  axis  of  symmetry. 

Dimensions  of  Arrays 

The  values  of  the  dimensions  of  certain  variables  depend  upon  the 
detailed  manner  in  which  the  aerodynamic  planform  is  modeled  with 
vortex  networks.  These  variables,  and  the  corresponding  dimensions 
are  as  follows: 

NCHORD(NWP),  NSPAN(NWP),  NSCORD(NWP), 

NVOR(NWP),  NUCtNWP,  4),  NUS(NWP,  4),  NVEL(NWP,  4), 

BDC(NVORT,  3),  AX(NWP),  AY(NWP),  AZ(NWP). 

MTIP(NWP),  MROOT(NWP),  H(NVORT),  G(NVORT,  3) 

where  NVORT  is  the  total  number  of  vortices  on  half  of  a  planform  (i.  e. , 
on  one  side  of  the  x-z  plane  of  symmetry). 

The  dimensions  of  the  first,  second,  and  third  subscripts,  re¬ 
spectively,  of  the  network  point  coordinates  XNET,  YNET,  and  ZNET 
are  (1)  the  maximum  value  of  NCHORD(IW),  (2)  the  maximum  value  of 
NSPAN(IW),  and  (3)  NWP.  The  dimensions  of  the  first,  second,  and 
third  subscripts,  respectively,  of  boundary  point  coordinates  AKSI, 

ETA,  and  ZETA  are  (1)  the  maximum  of  NCHORD(IW)-  1,  (2)  the  maxi¬ 
mum  of  NSPAN(IW)-  1,  and  (3)  NWP.. 

The  dimensions  of  the  first  subscripts  of  DIC  and  EIC  in  SUB¬ 
ROUTINE  ICOEFF  are  each  equal  to  the  maximum  value  of  NCHORD(IW). 
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PROGRAM  A 

INPUT  DATA  FROM  PUNCHED  CARDS 
SAMPLE  RUN 


I  3  5  7  9  I  I  13  lr>  17  19  21  23  25  27  29  ^  it  3?  39  41  Cs  a>  47  49  51  53  5r»  37  '»■?  61  63  65  67  69  71  73  7t  77  79 

£  4  6  8  10 _ 12  14 16  18  20  22  26  20  _ 30  _  3?  j4_  _38 _ 40 4?  4-  46  46  30 _ 52  54  56  58  50  62  _64 _ 66  68  70 _ 72  74  76  78  80 

|6|  ANOj  |H  c;ES|  ;FO|R  lAN  M-I:I7  BOMB  AT  M'O.0  ARE  COMPoFtED  FORSAMpIleT  R|UnT^  1  T 

H-K  i  Fm  I  1 1 :  i  i  i  1  ri  !Yi _ J  i  i  ! ,  i .  ’  i  • '  i  i .  •  ff  1  t":l  T 


'  1  ! 


19  ?l  23  25  27  29  31  33  35  37  39  41  43  45  47  49  51  53  55  57  59  61  63  65  67  69  71  73  75  77  79 

IB  20  22  24  26  28  30  32  34  36  38  40  42  44  46  48  50  52  34  56  58  60  62  64  66  08  70  7?  74  76  78  » 


13  15  17  19  21  23  25  27  29  31  33  35  37  39  41  43  45  47  49  51  53  55  57  59  61  63  65  67  69  71  7  3  75  77  79 
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PROGRAM  A 

G  AMO  H  MATRICES  ARE  COMPUTED  IN  THIS  PROGRAM 


NWP  .  NlWP  * 

»  NSPAN  13)  *  NSCOROJ  3 )  *  NVOR  131  * 

•  NIJS  13*4)  ,  NVEl  (3,4)  *  NUT  (4) 

XNET  (24.5*3).  YNET  (24.5*31*  ZNET  <24*5*31* 
A< S)  (23*4*3)*  ETA  (23*4*3),  ZETA  (23.4*31* 
XFLQWF(  1*  1),  YFLOUF(  l*  1)«  Z FLOW FI  1*  D* 
AX  13),  AY  (3)*  AZ  (3) 


CnMMON/CNcT  /  NWP 

1  NCHORO! 3)  *  NSPAN  13 

2  NIlC  (3*4)  *  NIJS  (3 

COMHON/CCOORO/  XNET  (24 

1  A<  S)  (23 

2  XFLOWFI 

3  ROC  (156.3),  AX 

COMMON/CPR1NT/  I PRG  * 

OIMEMSION  CXO 

1  MTIP13)  *  MROf)T ( 3 1 

CALL  PRRSFT  (209*10,5*2) 
CALL  ERRSFT  1251*10*5*2) 
CALL  FRRSET  (252*10.5*2) 
CALL  FRR5ET  (253,10*5*2) 
7100  FORMAT!  1615  1 

7200  FORMAT  I  RF)0.0  ) 

7300  FORMAT  I  8(1H 

RE AO (5. 7300) 

RFAOC5.72DO)  AMACH 

RE  AO  I  5 *71 00)  NWP 

R  F AO ( 6 . 7) 00 )  (NCH0R0I1 

RF AO (6*71 00)  (MT1P(1W) 

RFAO(5*7I001  NSYM 

RE  AO  (5*71 00)  DVELUSO 

RFA0(5, 71001  I PRG  * 

RE AO ( 6 . 7200 )  EPS 

0(1  1100  I  W  =  1  t  NWP 
AX  I  I  W  )  ■  •  1, 

AVI1W1  -  0. 

1100  A  £  (  )  W  )  =  0. 


FOLLOWING  FORMULAS  FOR  NETWORK  POINTS  APPL  re ARLE  only  TO  N-117  BOHR 
XNETI  5*1,11  =  4.395 
XNET (  9,1  ,1  I  -  3.435 


DI V  CHK 
NEG  SORT 
RIG  EXPN 
NEG  Lf*10 


AMACH 

( NCHORO I  1 W ) ,  NSPAN ( T  W I  * 
(MTlPdWI*  MROOT  (  1 W  1  * 

NSYM 

I  IVELUS0LVF1,  IS0LVE«l*4I 
I PRG  *  (PRH 

EPS  .  FPSR 


NSPAN ( TUI*  I W* 1  *  NWP  ) 
MROOT ( 1 W 1 ,  1W-1.NWP1 


XNET (  9,1 ,1 1  *  3.435 
XNETI 11 *1*1 )  a  2.935 
XNET (15*1*1  I  «  2.035 
XNFT( 19.1.1  I  =  1.058 
XNET (24.1*1 1  =  0. 


00  1254 

1254  XNFT (1*1*1) 
XNET! 10*1,1 


1*1*8 

-  XNET  (5*1*11  *  (  1-5 1  •  IXNFTdl*  1*1)-XNET(5*1*1II 

/  111-5) 

I  >  (  XwET (9*1,1)  *  XNET <11*1*11  I  /  2. 


on  1256  1-12*14 

1256  XNET 11*1*1)  *  XNET I  1 1  *  1  * l  )+  I  1-111*  I XNETfl 5* 1  *  1 1-XNETI 11*1*11) 


00  1258 

1?58^XNET llal.l) 


1*16,18 

-  XNETI 15,1 *1  !♦ 


I  1-15)*  (  XNEK19*1*1I— XNETI  15*1*1 ) ) 


1260  XNETI ! • 1 *1 >  *  XNETI 19 *1 *1 I*  (  1-19)4  (XNETI 24 *1*1 1 -XNETI 19*1 *1 ) 1 

1  /  124-19) 

NNC  *  NCHOROIl) 

NNS  -  NSPANC1 ) 

on  1262  I-l.NNC 

00  1262  J-2.NNS 

1262  XNETlt.J.l)  -  XNETI 1*1*11 


ZO 

/NET (  1*1,  ) 
ZNET (11*1*  ) 
ZNET (15*1*  I 

laftil::!: : 


1.055 

-  SORTI  1.6*42  -  X04*2  I 
-.2RI5 


| F (  1-1 1  I 
1272  IF!  1-15  I 


1274  ) F I  I  —19  ) 
1276  )FI  1-24  ) 


1282*  1282,  1272 
1284*  1284*  1274 
1286*  1286*  1276 
1288*  1290*  1290 


1282  ZCL 

GO  TO  1292 

l  1-12*15 

1284  ZCL 
1 

GOLTO  1292 
L 

:  1*16*19 

1286  ZCL 

r.n  to  1292 


ZNETI 1*1*1 ) 


ZNET( 11*1*1 )♦  (  1-11 >•  I ZNETI 15«1«1)-ZNET( 11*1*1 II 

/  115-11) 

-  ZCL 


*  -  ZNETI 15*1*1 ) 


C  ) *20*23 

1288  ZCL  -  ZO  _ 

1  ♦  SORT!  I *6*42 

GO  TO  1292 
C 

C  1*24 

1290  ZCL  ■  0* 

1292  YNET I  *1.1)  -  0. 

YNET (  *2,11  ■  ZCL  •  SINI  3.1416  /  4.  I 

YNET (  *3*1)  *  ZCL 

YNET (  .4.1)  *  ZCL  •  SINI  3.1416  / ) 

YNET (  *5*1)  *0. 

ZnIII  iJlll  -  -  Z?L  •  S) N{  3.1416  /  4.  I 

ZNFTI  *3*1)  =  0. 

7NET (  ,4,1)  *  ZCL  ■  Si N (  3.1416  /  4.  1 

ZNETI  *5,1)  =  ZCL 

l?94  CONTINUE 
C 

c 

)Fj  NWP-1  )  1380*  1380*  1300 

1300  NNC  *  NCHORO (2) 

NNC Ml  *  NCHORO 12 )-l 
NNS  *  NSPAN (2) 

NNSM1  -  NSPAN! 2)  -1 


♦  SORT!  1,6442  -  ( XNET (1*1*1) -XO I**2  I 


4 
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JfNETIl  ,1  ,2)  -  3.9450 

XNET! 1  ,NNS » 2 )  -  3*4350 

XNETINNC.i  * 2 >  «  4*3950 

XNET(NNC.NNS,2>  «  4.3950 

on  1312  i»i.nnc 

XNET 1 1  ,1  >2)  -  XNET 11*1  *2)  ♦  (  XNET f NNC* 1* 2 t-XNETtl , 1, 2  I  ) 

*  Fl.OATlI-1)  /  INNC-11 

■  -XNET ( 1, NNS, 21  I 

-  ' ’  /  t NNC-U 


FLO 
XNET  ( 
♦  I  XNE 


XNET 1 1  »NNS ,2 ) 

1  *1  AHCHNNU?"I 

2  *  float i i — i j 

no  1310  J-l ,NNS 

1310  XNETf  I , J ,2  )  *  XNETd.1.2] 

1  *  FLOAT! J-l ) 

1312  CONTINUE 


YNET 1 1*1  ,2  )■ 

YNETII, NNS. 2)- 
ZNETIltl  ,2>- 
ZNET 1 1  * NNS  *  2 ) 
00  1350 
YNET II* 


0.4Q20 
“  '991 


,  J  •  2 ) 


13501ZNETC1,J,2C 

00  1360 
00  1360 
YNETII ,J,2) 
1360  ZNETI1.J.2) 


0.19^ 

-YNETII, 1  ,2) 

-YNETII, NNS, 21 
J-l  .NNS 

-  YNETII, 1*2) 

*  FLOAT  I  J-l )  / 

»  ZNET 11,1,2) 

*  FLOAT I J-l )  / 


*  I  XNET I I,NNS,2 I-XNETI 1,1,21  I 
/  INNS-ll 


♦  (  YNETII, NNS, 21  -  YNETII, 1,21 
I  NNS- II 

♦  I  ZNET! 1 ,NNS,2)  -  ZNETI1,1,?I 
I  NNS—  1 1 


I *2, NNC 
Ja . . 


l.NNS 

on  1370  I-l,NNC 

on  1370  J-l, NNS 

XNETII.J.3)  -  XNET 1 1 , J ,2  > 


1370 
1 3B0 


YNETII , J , 2 ) 
-ZNET 1 1 , J,2  I 


YNETII »  J  ,  3  ) 

ZNET II , J , 3) 

CONTINUE 

00  1420 
NNC 
NNS 

nn  1420 

00  1420  _ 

xnet 1 1 , j • i w )  -  -  xneti r • J, 1  W  ) 


IW-l.NWP 

-  NCMORO(lW) 

-  NS  PAN  I IW) 
IB1 »NNC 
J-l, NNS 


1420  YNETII, J,1W)  -  -  YNETII.J.IW) 

arove  Formulas  for  network  points  applicable  only  to  h-u?  bomb 


BETA  -  SORT!  1.  -  AMACHP42 

00  1500  IW-1,NWP 

NNC  *  NCHOROIIW) 

NNS  -  NSPANIIW) 

00  1500  1-1 ,NNC 

00  1500  J-l, NNS 
YNET II • J • IN  I  -  BETA  *  YNETII.J.IW) 
1500  ZNET 1 1 • J, IW)  -  BETA  *  ZNETII,J,IW) 


WRITE! 6,7300 ) 
WRJTE16. 80041 
B004  FORMAT!/ 

NR  ITEI6.R110) 
cB110  FORMAT!/ 

WRITEI6,B1Z0I 
Bt  20  FORMAT  I / 

1  NCH0R012) 

BD40  FORMAT  I / 

1  MTIPI2) 

2MR00TI3)  • 

C 

WRITE  1 6, BIBO  I 
B130  FORMAT  I / 

WR I TEI 6,6090 ) 
B090  FORMAT  I / 

I  I VEL 1 3 ) ’ 


AMACH 
A  MACH 
NWP 
NWP 


l NCHOROIIW), 

IMTIPIIWI. 
I W-l • NWP J 
MTIPI II 
MR  DOT ( 2  ) 


NSYM 

NSYM 


'/6F20.2I 

*/6i 2n  i 

NSPANIIW),  tW-I.NWP) 
NSPANll) 


NCHOROI 3 1 

/6I20 
MROOTI IW I , 

KROOTI 1 1 
MTIPI 3) 

/6I20 


) 


I VEL 14) 


1 1 VEL 1 1  SOLVE  I •  I SOLVE-1,4 I 
I VEL II)  I VEL 12) 


1 /6 1  20 

41 
12 
V6I20 


B160  FO 


WRITEj 6.816DI 


WR | TE I  ft, H170 1 
B170  FORMAT!/ 

WRITEI6.R140) 
M40  FORMAT!/// 

I  /  6X , 


I  PRG, 
I  PAG 


EPS, 

EPS 


IPRH 

I PRH  * /6 120 


IIWr  AX  1 1 W) ,  AY(IW),  AZIIWI.  IW-l.NWP) 
■  TRAILING  VORTEX  OIRECTION  COSINES  1 


EPSR 
EPSRV6E20.2) 


00  2130 
NUC! |W,1 I 
NUS 1 1 W, 1 ) 
NUCI 1W.2) 
NIIS  1 1 W,  2  ) 
NUC I IW ,3 ) 
2130  NUSI I W,3 I 


AXI  IW) 

IW-l.NWP 

-  NCHOROI 1WC-1 
=  NSPANIIW)  -l 

-  NCHOROI  IW) 

-  NSPANIIW)  -1 

-  NCHOROI 1W)-1 
>  NSPANIIW) 


AZIIWI  i  /  UH  MW-*,  I1.3F10.6I  I 


NVORI  1)  - 

on  2140  ISOLVE-l ,3 
2140  NVELI  l , ISOLVE I  -  NUCI  1,IS 
IF  I  NWP— 1  )  215R  ,  215B,  214R 

2148  00  2150  IW-2.NWP 

NVORIIW)  >  NV0RIIW-1I 

00  2150  I SQLVE-1 , 3 

2150  NVELIIW, ISOLVE)  =  I _  _ 

1  4  NUCI IW, ISOLVE) 

215R  DO  2160  I SQLVE  =  1 *3 
2160  NUT  C I  SOLVE )  >  NVELI  NWP, ISOLVE) 

NVORT  =  NVOAINWP) 


I NCHOROI  1 1—1 1  * 
ISOLVE)  *  NUSI  l, ISOLVE) 


INSPANI  l)-l) 


I NCHOROI IWI-1 ) 
NVELI I W-l,  ISOLVE) 


4  INSPANI IWI-1 I 


NUSI I W, I  SOLVE  I 


IF  AKSI,  FTA,  ZETA  ARE  LOCATEO  01 FFERENTLY  WITH  RESPECT  TO  XNET, 
YNET,  ZNET  THAN  IS  USED  HEREIN,  CORRESPONDING  CHANGES  MUST  BE  MADE 
IN  CSUBP  CALCULATIONS  ISUBROUTINE  ACOEFF,  ISOLVE-l I 


00  2450 
NVORC 
NVORS 
00  2450 

I 


I  W-l, NWP 

-  NCHOROI 1W)-1 

-  NSPANI IW)  -1 
IP-1, NVORC 

-  IP 
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on  2650  io-iaNvnRS 
j  -  10 

IF  I  IH-l  }  2610,  2610 •  2620 


2610  IT  •  C IP- I )*NVORS  +  10 

do  TO  2630 

2620  IT  -  NV0R!1W-1)  *  IIP-1>*NV0RS  +  10 

2630  CONTINUE 

AKS 1 ( I P, 1 0, I W  >  ■  I  XNETII  ,J,1W>  +  XNET!1  ,J+l,IWl 
l  ♦  XMEH  1+1  .J.IH  I  ♦  XNETI  l+l,J+l,lMI 


ETA  (IPtlO.IW)  -  ! 


•  J ,  I H  >  ♦  ynetii 


l  ♦  YNETI  l+l.JHH)  ♦  YNET!  ♦l.J+l.lN) 

ZETA( IP'IOtlU)  -  I  ZNETII  ,J,JW>  ♦  ZNFT!  .J+l,lUI 
l  ♦  ZNET(l*l,J,fw>  «■  zneti  *  1  i  J  + 1 ,  I M  1 


Cx 

= 

XNETII 

,JM,|N>  - 

CY 

■ 

YN£TI | 

•  J+l , 1 W )  - 

Sx 

■ 

znIti 1 

•J+I.JW)  - 

■ 

x^ETli 

•  J  *  I W  )  - 

OY 

s 

YNET 1 l 

.J  ilN)  - 

OZ 

■ 

ZNET 1 | 

•  J  • IU  )  - 

CV  *  DZ  -  0/  *  CZ 
-  CX  *  OZ  ♦  DX  •  CZ 

cx  •  dy  -  ox  •  cr 

SORT I  CXOt | 1**2  ♦  CXD(2)**2  «■  CX0t3(P*2  I 


uu  n»ii3 

26)0  ADC  I  I T • N I  -  CXDIN)  /  ARSCXO 
C 

nn  A290  iwi.nwp 
NNC  •  NCHOROI IW) 

NNS  =  NSPAN(IH) 

GO  TO (  8210,  B2Z0,  B230),  IU 


R2I2  F0RNa(??/21*,NeIh0RK  POINTS  ON  600V  I , II, 

l  •  J-l  IS  TflP  (-Z)  CL  J-NJ  IS  BOtT&M  (+ZI  CL  •  1 


GO  TO  B250 

R220  MR  ITEI6.R222)  IW 

8222  FORMAT!//  •  NETWORK  POINTS  ON  UPPER  FIN  IM-Sll, 
L  *  J-l  IS  TIP  J-NJ  (S  ROOT 

GO  TO  8250 

8230  WRITE! 6,R232 )  IN 

R232  FORMAT!//  *  NETWORK  POINTS  ON  LOWER  FIN  IW-«,IL, 
l  •  J-l  IS  TIP  J-NJ  tS  ROOT 

R250  WRITE! 6 ,R260 I 

8260  FORMAT!/  •  XNETII, J,|W)  • I 

DO  B262  l-l.NNC 

6262  MR  I T£ 16,8264 )  |,  IXNET! I «J*IW> ,  J-l, NNS) 

6264  FORMAT!  «  I-*,  12,  9Fl6.4  I 

HR | TF ! 6,8270) 

R270  FORMAT!/  •  YNETII.J.IH)  • ) 

00  R272  l-l.NNC 

R272  WRITEI6.B274)  I,  ! YNET ! I* J. I W > ,  J-l, NNS) 

R274  FORMAT!  •  I-*, 12,  9F10.4  I 

NRJTEI6, R2B0) 

R2B0  FORMAT!/  •  2NET<I,J.|W>  *1 

00  R2R2  l-l.NNC 

8282  WR1TEI6.R2R4)  I,  ! ZNET ( I « J,  IN ) ,  J-l.NNSI 

R28*  FORMAT!  •  I- * . 12,  9F10.4  I 

R290  CONTINUE 


00  B3RR  IW-l.NWP 
NVORC  ■  NCHORn! 1W>-1 

NVORS  -  NSPANIIW)  -l 

WRITEI6. 63101  |M 

6310  FORMAT!//  *  BOUNDARY  POINTS  IW-', 

WRITE! 6 ,R360  > 

R360  FORMAT!/  •  AKS  I  ( IP , I  0 , I W>  •  ) 

on  B362  IP- l, NVORC 

8362  WRITE! 6, R364 I  IP,  IAKSI I jP« 10, IN) ,  IO-I.NVORSI 

8364  FORMAT!  *  IP-*, 12,  BF10.5  ) 

WRITFI6.6370) 

R370  FORMAT!/  •  ETA! IP ,10, IW )  •  I 

00  R372  I P-i .NVORC 

R372  HRITFI6.R374)  |P,  !  E  T  A  (I P  .  1 0 . 1 W  >  ,  IO-l,NVORSI 

R374  FORMAT!  •  IP-*, 12,  8F10.5  I 

WRITE I6.R3B0 ) 

R3R0  FORMAT!/  *  ZET A !  IP , 1 0 , 1 M )  •  ) 

00  R3R2  I P-I, NVORC 

R3B2  WR I TE ( 6, 63R4 I  IP,  ! ZETAI I P, (0, I W>,  IO-I.NVORS) 

R3R4  FORMAT!  •  IP-*. 12,  6F10.5  I 

8388  CONTINUE 

WRITE  I  6 ,R4l 0 ) 


10-1 , NVORS 1 


8410  FORMAT!//  •  ROClJT.N) 

l  N-l  IS  X-COMPON" 

00  R420  IW-l.NWP 
NVORC  ■  NCHOi 

NVORS  -  NSPA 

On  R420  N-l, 3 
OO  R420  IP-I.NVO 


DIRECTION  COSINES  AT  BOUNOARY  POINTS 
N-2  IS  Y  N-3  IS  Z  •  I 


■  NCHORn I |N)-l 

■  NSPANIIW)  -l 
N-l, 3 

IP-l.NVORC 


I  PI  i  K**ll  I  r—  l  ,  WVUKk 

IF!  I W-l  )  R4 12 ,  8412,  B414 


8412  ITl  ■ 

IT2  ■ 

GO  TO  84 16 

R414  ITl  -  NV0RI1W-I)  ♦ 

IT2  ■  NV0R ( I W- l )  ♦ 

8416  WR[TEI6,841R)  IN,  N,  IP, 
8418  FORMAT!  *  lM-*,ll,  • 

842D  CONTINUE 


I  IP-lIPNVORS  ♦  l 
IP  -NVORS 


I  I P-l )*N VORS  ♦  l 
IP  PNVORS 

I  ROC  1 1 T, N I ,  IT-ITI.IT2) 
N- • • I l ,  *  IP-*, 12, 


NINP  ■  NWP 

DO  3400  I SOLVE-l ,4 
(F(  I V EL ( I  SOLVE  I  )  3400,  3400,  3310 
3310  IF!  ISOLVE-4  I  3380,  3320,  3320 

.3320  CONTINUE 


THE  FOLLOWING  STATEMENTS,  THROUGH  3372,  ARE  USED  TD  COMPUTE  VELOCITY 
AT  POINTS  OFF  THE  SURFACE  OF  THE  AERODYNAMIC  PLANFORM 
READ  I  $ • 7 10D >  NINP 


00  3350  lW-l.NlUP  _ 

RE AO  I  5 , 7100 )  NUCIIW.4),  NUS1IH.4) 

NVELC  -  NUCI 1 W,4> 

NVELS  -  NI1S  I  I W, 4) 

00  7710  II -l .NVELC  ..  .  ^  ...  „ , 

7710  REAO (5,7200 )  ?XF LOWF ( 1 1 , JJ ) ,  JJ-l, NVELS) 
00  7720  I T “l , NVELC 

7720  RE AO! 5,7200 )  { YFLOWF ( I ( , J J ) ,  JJ-l,NV*LSl 

no  7730  I J-l, NVELC 

7730  RE*0 15,7200  )  IZFLOMF! I ( , J J  > ,  JJ-l, NVELS) 

3350  CONTINUE 

3360  NVEL ! I ,4 1  -  NUC(l,4>  *  NUS(l,4) 
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IF  f  N1WP-1  )  331?*  3372,  33*4 

33*4  on  3370  ]W«2*NlWP 

3370  NVF.l,fIW«4>  -  NVELI |tf-l«4)  *  Nl)CUW,41  •  NllS(fH*4) 


3372  NIITC4I 

33110  WELT 
CALL 
1  MTtP 
1  EPS 
3400  CONTINUE 
C 

TF(  IVELI1I 
4100  END  FILE  23 
REWIND  23 
4200  END  FILE  24 
RFMIND  24 

STOP  . 

END 


NVEl(NIWP*4) 

-  NUT <1  SOLVE) 
ICOFFFJ  NV6LT* 
,  MMOni 
*  EPSR 


NVfWT 

1 


I  SOLVE,  NSYM 


4200*  4200*  4100 
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SUBROUTINE  1COEFFI  NVELT * 

1  NT  IP  •  MRnOT 

1  EPS  ,  EPSR 

COMMON/CNET  /  NWP 
1  NCH0R0(3)  ,  NSPAN  (3) 


2  NUC  (3.4)  ,  NUS  (3 

CONNON/CCOORO/  XNET  124 

1  AKSI  123 

2  XFLOWFf 

3  ROC  1 1 56  «  3  >  *  AX 
COMMON/CPRINT/  iprg  . 

1  ™&tH«3!  ,  MROOTI3) 

2 

2  R I  2  I  *  COSTHf  2 1 


,  N1WP 
•  N SCORCH  31 


NUS  13.4 >  .  NVEL 

XNET  (24,5.3).  YNET 


31,  ZNFT  124,3.31, 


AKSI  123.4,3),  ETA  <23,4,3),  ZETA  123,4,3), 
XFLOWF <  1,  1).  VFLOwFf  1,  1).  ZFLOHF<  I,  1), 
AX  131,  AY  <  3 ) ,  AZ  <  3) 


R I  2  I  ,  COSTHf  2 )  ,  ASEG 

QIC  124,3),  E 1C  (24,2,3),  F|C 

OKLF(A,B,C,0,E,F)  ■  <A-B)*fC-EI  *  I 


< 1 36 )  ,  G 
<  3 ),  OSEG 
(2,3),  SOME  1C 
0-El*IF-BI 


U36J3), 

<2, 3) 


OO  6200  L 

on  hooo 

NVELC 

NVELS 

on  6000 
00  6000 
IF  <  1M-1  ) 
510  IT 

GO  TO  530 
520  IT 


LSYM-l.NSVN 

1W-1.N1WP 

■  NUC < 1W,1 SOLVE) 
•  NUS  < 1 W , 1  SOLVE  ) 
1 1-1. NVELC 
JJ-1  ,  NVELS 
)  510,  510,  520 


<11-1)*NVELS  ♦  JJ 


520  IT  -  NVEL  MW- 1,1  SOLVE)  ♦  (ll-l)*NVELS  ♦  JJ 

530  GO  T0(  610,  o2C.  630,  640),  fSOLVE 
610  IP  -  II 

10  ■  JJ 

XP  -  AKSI ( I P , 10. IW  > 

YP  -  ETAf rP.IO.I W) 

ZP  -  ZcTAf I P , 10, I W I 


<JXNET I  1 , J , 1 W) 

<  YNET<1,J,1W) 
-  ABS (  YP  ) 

<  ZNET ( I  * J, ( W ) 


♦  XNETf  l.JM,  1w>  I  /  2. 

♦  YNET< 1, JM.IW)  I  /  2. 


630  1 
J 

XP 

YP 

VP 

ZP 

GO  TO  700 


<  XNET(I,J,IW)  ♦  XNET( 1*1, J, IW)  )  /  2. 

<  YNET < I  , J , 1 W >  ♦  YNET < 1 ^1 . J , 1 W )  )  /  2. 

<  1nII<Mj!iw)  ♦  ZNETf  1M.J.1W1  )  /  2. 


■  -  ARSI  VP  ) 

-  <  ZNET < I  * J , 1W )  ♦  ZNETf I«1,J,1W1  ) 

TO  700 

-  XFLOWF ( 1 I , JJ ) 

*  VFi.OwFli  j.JJ) 

-  ZFLOWF(li,JJ) 

00  5200  JS  YMa| «N JSYM 
00  5000  JW-1,NWP 
NNC  -  NCHORO(JM) 

NVORC  ■  NCHOROIJW)-1 

NVCRS  -  NSPAN(JW)  -l 

00  5000  L-l.NVOKS 

no  1500  R-l, NVORC 

1 F (  JW-l  )  1110,  1110,  1120 

JT  -  U-1)*NV0RS  ♦  L 

GO  TO  1150 

JT  ■  NVORf JW-l J  ♦  <K-1|*NV0RS  ♦  L 

CONTINUE 


I F |  (SOLVF-2  >  1250,  1220,  1250 

! F (  LSYH-JSYN)  1250,  1230,  1250 
IS  EQUIVALENT  TO  I  SYM-i  AND  JSVH-1 
1 F (  JW-JW  »  1 2 $0 ,  1232,  1250 

IF |  ll-K  1  1250,  1234,  1250 

I  FI  JJ-L  >  1250,  1240.  1250 

CONTINUE 

WR 1TE ( 6.RI00 )  L  SYH, J  W. 1 1  * J J.  JSVM.JW.K.I 
FORMATI/  •  ICOEFF  B100  COUNTER  TFS*  OELETES  SPAN  SEGMENT* 
,413,  10X,  415  > 

GO  TO  1450 
CONTINUE 


EL  -  SORT <  <  XNET (K.L+1, JW )  -  XNET|K,L,JWl 

♦  (  YNET  Ift.LM,  JW)  -  VNETPC.L.JWI 

♦  I  ZNETU.L^l.JW)  -  ZNETU.L.JW) 
00  1320  NN-I ,2 

RfNNI-  SORT <  I  XP  -  XNFTU,L-1*N 

♦  <  YP  -  VNETU.L-l+N 

♦  I  ZP  -  ZNEHK.L-UN 


XNFT  U,  L-l^NN,  JW )  )*•? 
VNETIt.L-l4NN.JW)  )••> 
ZNE1 (K.L-14NN, JW)  )**2 


00  1334  NN-1,2 

1 F <  EL*R<  NN )  -  EPS  )  1332,  1332,  1330 

COSTH<NN)  -  Uf 1)**2  -  R<2)**2  -  <-l)**<NNI  •  EL**2  I 
/  I2,*Fl*R(NN) > 

GO  TO  133* 

COSTHf NN )  -  0, DO 

WK1TE(6,B112)  LSYM.1W, II, JJ,  JSYM,JW.R,L,  EL, NN, RfNNI 
F<1RMAT(  •  ICOEFF  R 1 1 2  FL*R(NN)<  EPS  ON  SPAN  SEGMENT* 
.415,  IOX,  415,  10X,  El 0. 2,  T5,  E10.2  ) 

CONTINUE 


IFf  1 .-COSTHl 2) **2  )  R130,  B130,  1340 

WR| 16(6,8132)  LSYH.IW.I i.JJ,  JSYM.JU.K.L.  COSTHl  2  ) 

FORMAT  I  •  ICOEFF  R 1 32  COSTHf 21**2  >  1  ON  SPAN  SEGMENT* 
,415,  IOX,  415.  IOX.  F10.6  ) 

GO  TO  1450 

SMALL*  ■  R( 2)  •  SORTI  1 • -COSTHl 21**2  ) 

(F(  SMALLR  -  EPSR  )  R150,  8150.  1350 

WR1TE<6,8152)  i  SYM.lW.ll ,JJ,  JSYN.jw.K.L.  SMALLR  , 
FORMAT  <  •  ICOfFF  R15?  SMALLR  <  EPSR  ON  SPAN  SEGMENT* 

,415.  IOX.  415.  IOX.  E10.2  I 
GO  TO  1450 

ASEGfl  l-APOKLFI  YN6TlK.L4l.JW  ) ,  YNETfX.L,  JW),  ZP, 

ZNET IX, L4l , JW I .  ZNFTIX.L. JW),  YP  ) 

ASEGl 2 )-APOKLF|  ZNFTIK.L4l.JW  I,  ZNET ( K , L , JW  )  ,  XP, 
XNFT(R,L4l,JW).  JCNETIK.L,  JWl,  ZP  ) 
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ASEG*3)*AP0KLFI  XNETIK, L*i. JWI,  XNFTIK, L, JW I*  YP. 

YNET|K,L*l*JWI,  YNETI K.L, JW I,  XP  > 

ARSLXR  ■  SORT (  ASEGlt>**2  ♦  ASEG(2l*42  ♦  *SEGI3»**2  I 
IF*  ARSLXR  -  EPS  >  8170.  8170,  1360 

WRITE 16,8172)  LSYM, <H, I I » JJ,  JSYM,JW.K,L,  ABSLXR 
FORMAT*  *  ICOEFF  8172  ARSLXR  <  EPS  ON  SPAN  SEGMENT* 
.415.  10X.  415.  10X,  E10.2  ) 

GO  TO  1450 

COEFF  -  *  COSTHI 1 >  -  COSTHI 2)  I 

/  I  4. *3. 1416  •  SMALLR  •  ABSLXR  > 

00  1420  N-l,3 

OICIRfNl  *  ASEGIN>  •  COEFF 

GO  TO  1500 

00  1460  N*l  •  3 

OIC I K«N )  =  0.00 

CONTINUE 

Of)  2500  LR-1.2 

So  2500  I-l^NVokc 

IF  I  L-l  )  2050,  2050,  2020 

GO  TO*  2030,  2050),  LR 

00  2040  N*1  ,3 

EIC* I • 1 , N I  *  E ICI I , 2 ,N ) 

GO  TO  2500 
CONTINUE 

ELIMINATION  OF  CHGRMISE  SEGMENTS 
IF*  1S0LVE-3  >  2250,  2100,  2250 
IFI  LSYM-JSYM)  2210,  2110,  2210 

LSYM  o  l 
JSYM  «  1 

IFI  IW-JW  I  2118,  2114,  2118 
IF(  Il-I  >  2250,  2116,  2250 
IFI  JJ-Ll  >  2250,  2240,  2250 


IFI  JJ-Ll  >  225 

CONTINUE 
GO  TO  2250 

CONTINUE 
IFI  IW-JU  > 


.  ...  2250,  2222,  2250 
FI  MTIPIIW)  1  2224,  2224,  2232 
FI  1 1 -I  )  2250,  2226,  2250 
FI  JJ-Ll  I  2250,  222B ,  2250 
FI  JJ-l  >  7000,  2240,  2232 


IF*  MROOTIIW,  I  2234,  22^4,  |||0 

IFI  JJ-Ll  >  2250,  2238,  2250 

IFI  JJ-NVELS  I  2250,  2240,  2250 

CONTINUE 

WRITE (6,82001  LSYM, IW, II ,JJ,  JSYM,JW,I«L1 
FORMAT!/  *  ICOEFF  8200  COUNTER  TEST  DELETE  CHORD  SEGMENT* 
,415,  10X,  415  > 

GO  TO  2450 
CONTINUE 


■  SORT!  I  XNET 


I  XNET 1 1*1 , Ll ,  JW )  -  XNETII  ,L1,JN>  14*2 

♦  (  YNET I  I + 1,L1, JW)  -  YNETII  ,L1,JW>  >4*2 

♦I  2NETII*1,LI. JWI  -  2NETII  ,L1.JWI  )4*2  I 

00  2320  NN-1,2 

R  I  NN>»  SORTI  I  XP  -  XNETI I-1*NN,L1,JWI  14*2 

♦I  YP  -  YNET! I-1*NN,L1,JW>  >4*2 

*(  ZP  -  ZNETI I-1*NN, LI, JW I  I**2  I 

DO  2334  NN«1,2 

IFI  EL4RINN)  -  EPS  1  2332,  2332,  2330 

COSTHINN)  ■  I R 1 1 >442  -  R(2>4*2  -  |-1I**(NNI  4  EL4*21 
/  I2,4EL*R(NN) ) 

GO  TO  2334 
COSTHINN)  -  0.00 

WR(TE!6,8212)‘  LSYM,  IW,  I  ( ,  JJ ,  JSYM,  JW.  I ,  LI,  EL.NN.RINN) 
FORMAT!  •  ICOEFF  8212  EL4R|  NN  j<  EPS  ON  CHORD  SEGMENT* 

,  415.  10X,  415,  10X,  E10.2,  15,  E10.2  1 
CONTINUE 

IFI  1 .-COSTHI 2)442  >  8230,  8230,  2340 

WRITE (6,8232 )  LSYM. I W. 1 1 . JJ,  JSYM, JW, I tLl ,  COSTHI 2 ) 
FORMAT*  ■  ICOEFF  8232  COSTHI 2 J**2  >  1  ON  CHORD  SEGMENT* 
,  415,  10X,  4[5,  10X,  F10.6  > 

GO  TO  2450 


SMALLR  ■  RI2I  •  SORTI  1. -COSTHI 2 >4*2  ) 

IFI  SMALLR  -  EPSR  )  8250,  8250,  2350 

MRITE(6,0252)  LSYM, IW. 1 1, JJ.  JSYM, JW. I ,L 1, 
FORMAT!  •  ICOEFF  8252  SMALLR  <  EPSR  ON 
,  415,  10X,  415,  IOX,  E10.2  > 

GO  TO  2450 

ASEG(l)  =  APOKLFI  YNETI 1*1, Ll, JW) ,  YNETII, 
ZNET(I*1,L1,JW)  ,  ZNET  {  I , 
ASEGI2)  -  APOKLFI  ZNET  *  I +1, LI, JW) ,  ZNETII, 
XNETII*!, Li. JWI,  XNETII, 


SMALLR 

CHORO  SEGMENT* 


APOKLFI  YNET I I+1,L1, JW  ,  YNETI  , 
ZNET  *  1*1, LI , JW  ,  ZNETI  , 
APOKLFI  ZNET<I*1,L1, JW  ,  ZNETI  , 
XNET 1 1*1, LI f JW  ,  XNET I  , 
APOKLFI  XNET 1 1*1 , LI, JH  ,  XN€T|  , 
..  ,  YNET 11*1, LI, JW.  YNETI  , 

SORTI  ASEGI 1 )4*2  ♦  ASEG(2I4*2  ♦ 


IFI  ARSLXR  -  EPS  >  8270.  8270,  2360 

WRITEI6, 82721  LSYM.I W.I 1, JJ.  JSYM, JW, I, LI, 
FORMAT*  ■  ICOEFF  6272  ABSLXR  <  EPS  ON 


GO  TO  2450 
COEFF  ■  I  COSTHI 1 )  -  COSTHI 21  ) 

/  I  4.43,1416  4  SMALLR  4  ABSLXR 
DO  2420  N=1 , 3 

EICII ,LR,N)  ■  ASEGIN)  4  COEFF 
GO  TO  2500 
00  2460  NM.3 

E (C 1 1 • LR , N )  -  O.DO 
CONTINUE 


IOX,  415,  IOX,  E10.2 


L l, JW  ,  ZP« 

LI, JWI,  YP  ) 
LI, JW  ,  XP, 

LI, JW  ,  ZP  ) 
LI, JWI,  YP,  . 

iitG?iW42  i 

ABSLXR 

CHORO  SEGMENT* 


00  3500  LR-1,2 
LI  *  L-1*LR 

RII)  *  SORT  I 


RII)  *  SORTI  I  XP  -  XNET! NNC, L 1, JWI  >4*2 

♦  I  YP  -  YNET*  NNC, LI • JW )  >4*2 

♦  I  ZP  -  ZNET(NNC,L1,JWI  >4*2 

JF(  Rm-EPSR  )  3332,  3332,  3330 

CGSTH(l)  *  -(  AX  *  JW )  •  t  XP  -  XNET I NNC, Ll , JW )  > 

♦  AY  I JW )  *  |  YP  -  YNET I NNC, Ll ,  JH )  > 
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3332 

8312 


3336 

8330 

8332 


3340 


8350 
8  352 


3350 


8370 

8372 


3360 


3450 

3460 

3500 


4100 


ills 

4240 


42  50 
4252 

4254 

4300 

5000 


5080 


5200 

C 

C 

8512 

8514 

8516 

8518 

8520 

8522 

6530 

8540 

8550 


5500 


5520 


8562 

8564 

8570 

8572 


*  AZCJV)  *  C  ZP  -  ZNFTCNUC.il.  JWl  1  1  /R C 1) 

GO  TO  3336 
COST HC 1 )  *  0-00 

MR  ITS  [6*831 2 )  LSYM-IW-II,JJ,  JSYM, JW-L1  *  R<1|  „  „  . 

FORMAT!  •  IC0?FF  8312  R ( 1 T  <  FPSR  ON  TRAIL  VORTFX* 

♦  415*  *  TRAIL  VOR  *»  216,  5X,  15,  10X,  510.2  ) 


l.?!_i-rCO|THCl  )442 


WRITEC6 
FORMA T  C 


8330.  _ _ 

LSYMvlw, 1 I.JJ,  JSYHV JW« L 1 ,  C0STHI1I 
-  -  C05 TMC 1 )  **2  >  I  ON  TRAIL  VORTEX* 


_  1  8330,  8330,  3340 

321  LSYM, IW, 

•  1C0EFF  833?  ___  _  _  _ 

415,  •  TRAIL  VOR1,  215,  5X,  15,  10X,  FI0.6 

GO  TO  3450 

SMALL8  =■  Rill  ♦  SORT  I  1,-COSTHI IC **2  1 

1*=C  SMALLR-EPSR  1  8350,  8350,  3350 

WRITE (6,8352  1  L SYH-Tw. 1  I , J J-  JSYM.JW-LI,  SMALL 8 

FORMAT (  •  ICOEFF  6352  SM&LLR  <  FPSR  ON  TRAIL  VORTEX* 


GO  TO  3450 
0SEGC1 J 


OSEG ( 2  > 


415.  •  TRAIL  VOR*,  215,  5X,  15,  IOX, 


AY  I  JW  I 
AZCJW) 

AZ l JW 1 
AX ( JW 1 

A  X ( JW  > 
AY  I JW  > 


1  ZP  -  ZNETf NNC, L 1 , JWJ 
(  YP  -  VNFT  C NNC , Ll , JW 1 


(  XP  -  XNF  T I NNC , L 1  a  JW I 
(  ZP  *  ZNETINNC.L1.JW1 


r  10-  2 

C 

1 


(  YP  -  YNp  T ( NNC , L 1 , JW 1 
(  XP  -  XNFTI NNC , L 1 , JW I 


OSEG ( 3 1 

-  AY  I JW  1  *  I  XP  -  XNF T | NNC ,  L  _  , _  . 

A8SLXR  ■  SORT C  0SFG(11*«2  ♦  DSEGC2CA*2  ♦  0SEGC3C4*2  I 
1 F  C  ARSLXR  -  EPS  1  6370-  8370,  3360 

WRITE  C  6, 8372 1  LSYN, ] W, 1 1 , J J,  JSYM.JW-LI,  ARSLXR 
FORMAT C  *  ICOEFF  8372  ARSLXR  <  EPS  ON  TRAIL  VORTEX* 
•  415,  •  TRAIL  VOR*,  215,  5X,  15,  IOX,  E10.2  1 

GO  TO  3450 

COEFF  *  I  1.  -  COSTH(l)  I 

i  I  4, *3.1416  *  SMALL*  •  A8SLXR  1 
00  3420  N=l,3 

FICUR.NI  -  OSEG  ( N 1  *  COEFF 
GO  TO  3500 
00  3460  N  =  1 ,3 
FIC(LR,N»  »  0.00 
CONTINUE 

00  4100  N=1 « 3 

00  4100  LR-I ,2 

SUME IC ( LR,N1  ■  0.00 

00  4300  M-l.NVORC 
K  =  NCHORO ( J W l-M 
I F (  JW-1  1  4210,  4210,  4220 

JT  ■ 

GO  TO  4230 

JT  -  NVORC JW-I  1 

00  4300  N-I  , 3 

00  4240  LR=1 ,2 

SUHE1C  CLR»N>  =  SlIME IC (LR,  Nl  *  EIC(K,LR,N1 

G1C  =  OICCKtN)  -  SUH||g||;{.j  J  SUHMg||:5j| 

GO  TOC  4250,  4252),  NS*M 
GO  TO!  4252,  4254),  JSYM 
GCJT.N)  -  G1C 

GO  TO  4300 

GCJT.N)  -  GCJT.N)  -  GIC 

CONTINUE 
CONTINUE 

GO  TOC  5090,  5200),  NS YM 

00  5100  JW=] ,NWP 

NNC  =  NCHOROC  JW ) 

NNS  *»  NSPANCJW) 

00  5100  K-1,NNC 
00  5100  L= 1 ,NNS 
VNET  CR  ,1  •  JW  )  *  -  YNET(K,'.,JW) 

CONTINUE 


CK-1C*NV0RS 
C  K-l C*NVORS 


I F  C  I PRG  ) 
1FC  IT-1  ) 

IF  C  IT-NVEIT  I 
DO  8520  N-1,3 

WRITEC6.8518) 
FORMAT  C  • 

Cl,  IOX, 


8550,  8550,  8512 
8516,  8516,  6514 
6550,  8516,  8516 

1  SOLVE,  LSYM,  IT,  N 

ISOLVE  »*,11,  *  LSYM-*.ll,  •  IT-*, 13, 

“  I J T , N )  AS  ORIGINALLY  COMPUTEO  *C 
-  JT-1 , NVORT I 


6000  CONTINUE 


(1,  IDA,  ■  OIJI.N) 

WRITE (6,8522 )  (GCJT.N), 

FORMAT C  16F8.3  ) 

WRITEC6,8540>  IT 
FORMAT  C  75X, *  ICOEFF  IT-*, 13, 
WRITEC24)  G 

GO  TOC  5500,  6000,  6000,  6000),  ISOLVE 
00  5520  JT-1, NVORT 
HCJT)  -  0-00 
DO  5520  N=I ,3 

HCJT)  -  HCJT)  ♦  80C ( I T,N )  4  GCJT.N! 

WR1TEC23)  H 

IF(  I PRH  )  6000,  6000,  8562 

IF  C  IT-1  )  8570,  8570,  8564 

1FC  1 T-NVORT  )  6000,  8570,  8570 

WR 1 TE  C 6, 8572 )  LSYM, . . 

FORMAT  C  * .HCJT) 

LSYM-*, II, 


ENTRY  WRITEC24)  G  * < 


J  ,  B9rO,  n»fo 

,  IT,  CMCJT),  JT-I , NVORTC 
)  NON-NORMAL I ZEO  AS  ORIGINALLY  COMPUTEO 
•  I T- * , I  3  t  C1H  16F6.3)  > 


88  l?ioMOOi-S?:Si) NSrH 


6090 

NNC 
NNS 

00  6100  1' 

on  6100  j 

6100  YNET C I , J, 1W ) 

C 

6200  CONTINUE 

7000  RETURN 
ENO 


NCHOROC 1W) 

>  NSPANCIW) 

■1  *NNC 

■  I  ,NNS 

*  -  YNET (1 , J ,1 W ) 
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Output  Data 

The  output  data  from  Program  A  consists  of  the  3  and  H  matrices. 
The  (J  matrices  are  written  on  a  magnetic  tape  identified  with  data  set 
reference  number  24,  and  the  H  matrix  is  written  on  a  second  magnetic 
tape  having  the  data  set  reference  number  23.  The  entire  quantity  of 
output  data  which  is  generated  in  the  sample  run  that  is  used  herein  as 
a  benchmark  is  much  to  voluminous  to  display  in  its  entirety;  hence, 
only  representative  results  will  be  shown. 

When  NSYM  =  2  and  ISOLVE  =  1,  the  elements  of  the  first  row 
and  first  column  of  the  x,  y,  z  components  of  Sr(l)  (the  first  partition 
of  the  FORTRAN  designation  for  the  first  partition  being  LSYM  =  1) 
are 

GxV  l  =  °*  GyV  i  =  321'  and  GzV  i  =  3*  188 

The  corresponding  value  of  H  is 

-3.451 


The  initial  elements  of  the  second  partition  (LSYM  =  2)  are 

1  =  0.  126,  Gy2^  x  =  0.  621,  and  G^2)  1  =  0.  648; 

and  h\2  i  =  -0.  836 


2.2  USER'S  GUIDE  TO  PROGRAM  B 
Input  Data 

Several  of  the  input  variables  whose  values  are  read  from  punched 
card  data  sets  are  mentioned  above  in  the  description  of  Program  A. 

The  others  are  defined  as  follows: 

IPRHI  =0  Do  not  print  H“  * 

=  1  Print  H'1 

ISEG  =  1  Entire  Program  B  is  executed  in  one  submittal  to  the 

computer 

=  2  Program  B  is  segmented  into  2  parts,  each  of  which 

requires  a  separate  submittal 
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IRUN  =  1  This  is  the  first  submittal 

=  2  This  is  the  second  submittal  when  ISEG  =  2;  it  is  a 

continuation  of  calculations  performed  in  the  first 
submittal 

The  (5  and  H  matrices,  which  were  written  in  Program  A  as  data 
sets  with  reference  numbers  24  and  23,  respectively,  are  read  in  Pro¬ 
gram  B. 

Dimensions  of  Arrays 

The  values  of  the  dimensions  for  the  variables  in  COMMON/ CNET/ 
are  the  same  as  used  in  Program  A.  Wherever  the  number  156  appears 
as  a  dimension  in  the  sample  program  listing,  it  indicates  that  the  dimen¬ 
sions  in  those  locations  are  equal  to  NVORT. 
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PROGRAM  fl 

IN  THIS  PROGRAM  THE  H  MATRIX  IS  INVERTEO  AND 
THE  HOIAG,  NINV,  H  AND  G  MATRICES  ARE  WRITTEN  ON  DATA  SET 
1  SQUARE  MATRIX  IN-CORE 
NON-PIVOTING 


21 


ISEG 

ISEG 


NON- SEGMENTED*  IRUN-1 
SEGMENTED  INTO  2  RUNS* 


lRUN-1,2 


ISEG  »  1 
WRITEI21) 
RE  AO l 23 ) 
RE  AD  1 24  ) 
MRITE431) 
RE  AO ( 31 > 
WRITE  132  ) 
READ  I  32 ) 
WRITE  <41  ) 
WRITE  14? J 
RE AO ( 42  ) 
WR  L  T  E  <  5 1  > 
REAOf 51 ) 
WR 1 T  E ( 52  > 
WR1TEI53) 
REAOI53) 

ISEG  =  2 
RfAQ (23 J 
HR  t TE 122 1 
>IN IT  4  31  9 

( 3? ) 

<41 ) 

(51) 


IH|  <  IT  *  JT  J  *  JT«1, NVORT)  NORMALIZED 
PHI (JT) 

EH2  <  JT )  NORMALIZED 

I H2 I  I  T  *  J  T  )  *  JT-1, NVORT) 


JT-NNVORTI 
1 T* 1  *  NVOR  T  I 


H2HI  I  J^J 
EH1H2IJT) 

(HINVIMT,  JT) 

<H1 |NV< IT -JT ) 

EHllNVdf  I 
H2HI < IT) 

EH|NV2<1T> 

I H1NV2  1 1  T  *  J  T  1  *  I  TM.NVORT  I 
AND  IRUN=1 


INVERSE  OF 
INVERSE  OF 


4|H1  -  H2H|H2 


Ml  -  H2HIH2I 
HI 


■  -  HINV1  •  H2H I 


HOIAG,  FH1H2,  H2HII1T),  HI,  H2 
HI 
H2 

H2H1 < JT ) 

HI  1NV 

ANO  1RMN-2 


ISEG  -  2 
WRITE  <21  ) 

RE AO  <  22 ) 

READ  124) 

UN  IT (53) 

COMMON/CNPT  /  NWP 

1  NCHORO  <  3 )  ,  NS  PAN  13) 

2  NUC  <3. 4)  *  NUS  1 3*4) 

DIMENSION  I V EL  < 4 ) 

OIMENS ION 

I 

DIMENSION 

1  HI  (156*156), H1INV I  156*156)*  H2 
?  HI NV2 1156,156) 

OIMENS  LON 


NIWP 

NSCOROI 31 
NVEL  13*41 


NVOR 

NUT 


(31 

<41 


(156*3) 


1 156* I  561 • HI NV1 1 156*1561, 


HOIAG  <156*2), 
EHZ  1156), 
FHIH2  < I  56 ) , 
EH1NVI  1156), 
EH1  1NVI 156  I  • 


H2H1 


1156)*  H2H1H2  (1561,  EHI 


11561* 


EH  1 NV2 1156) 


EQUIVALENCE 

,1 


CALL 


HI  <  1*  II*  HI 

CALL  ERRSET  <2 51*10*5*2) 
CALL  ERRSET  <252*10.5,2) 

^U^Is125^10’5’*’ 


INVI  1*  I).  H2  I  1,  II,  HINV1I  1*  II* 

5*2) 


7100  .  _ 

7200  FORMAT  <  RE10.0 
73D0  FORMAT  <  ROH 

lREADI5*7300) 

RE AO )5*  7100 ) 

RE A0<  5*7100 ) 

RE ADI  5  *7 100 ) 


OIV  CHK 
NEG  SORT 
RIG  € XPN 
NEG  LG10 


NWP 

(NCHORO(lW) * 

NSYM 

I  lVEL(lSOLVE).  1  SOLVE 


NSPANIIW).  IH-l.NWPl 
1,41 


RE  AO ( 5  *  7100  ) 

READ<5.7100)  IPRHI  *  IPRH 

RE  AO  ( 5  •  7100 )  ISEG  •  IRIJN 

no  2130  I  H= 1 *NHP 
NIJCUH.l)  ■  NCH0R0(1W)-1 
NUS(!H*1 )  a  NSPANt 1W)  -1 
NvIC  )  I  W  *?  )  -  NCHORn(LW) 

NUS  I  I W  ,2 )  -  NS  PAN  <  I W )  -1 
NUC<IW*3)  ■  NCHORO  < I W )  — 1 
2130  NUS (IH*3)  ■NSPAN(IM) 

C 

NVOR (  1)  ■ 

on  2140  I  SOLVE* 1*3 

2140  NVEL  <  I • I  SOLVE )  ■  NUCI  l.ISOLVE)  •  NUS<  I.ISOLVEI 
IF (  NWP— 1  )  2158,  2158.  2148 

2I4R  00  2150  I  W*2 , NWP 

NVOR ( I W )  ■  NVOR(IW-I)  ♦  (NCHORDI IW)-1 I  * 

On  2150  ISOLVE-1,3 

2150  NVEL I 1H, | SOLVE)  ■  NVEL <1 W-l , ISOLVE > 

1  ♦  NUCI IW, I  SOLVE)  •  NUS( I W* 1  SOLVE  I 

2I5R  00  2160  I  SOLVE*! *  3 


IPRG 


(NCHORDI  11-11  *  (NSPAN<  I  9-1 < 


INSPAN! I W ) — 1 ) 


2160  Nl)T(ISDLVE) 
NVORT 
C 

WR| TE (6 • 730D) 

WRITE  16,8110 ) 
8110  FORMAT  I / 

C 

WR I FE  <  6  *8 1 20  ) 
R120  FORMAT  I / 

l  NCHORO  <  2  > 

2NS PAN  <  3  I  • 
WR1TEI6.R130) 
8130  FORMAT  I f 

WRITE  16. 8140) 
R140  FORMAT ( / 

1  IVELI3) 

WRITE  <6*8160 ) 

1  .  » PRG, 

R160  FORMAT!/ 

1  IPRG 

WR I TE 1 6*R1 70  I 

8170  FORMAT  I / 

HR  ITE I  6*8210) 
8210  FORMAT!  •! 


NVEL I  NWP* 
NVOR (NWP ) 


[SOLVE  I 


NWP 

NWP 


■/61?0  1 


(NCHORDI IWI,  NS  PAN! I W 1 ,  1W»1*NWP1 

NCHORO! 11  N SPAN 1 1 1 

NSPAN<2>  NCHORO! 3) 

/6 120 

NSYM 

NSYM  V6I20 

( IVELI1S0LVE1.  IS0LVE-It41 
I VELI11  ‘  ‘ 


1VELI4) 

IPRHI, 

I PRHH | 

•  IPRHI 
I PRHH | 

ISEG* 

•  ISEG 
NVHRT 

COMPUTED  VALUE  OF  NVDRT«*.I3 


’  I V§L( 2  I 

V6I20 

IPRH* 

IPRH 

*/6|20 

I  RUN 

IRUN  V6120 


GO  TO!  3400.  4600),  IR'JN 
340D  CONTINUE 
00  3440 
»EA0<23) 

OO  3410 


IT. 


>1 , NVORT 

EHI 
JT=I, NVORT 
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3410  H)  { i  t*  jt  >  =  EHi(jT) 

IF  I  IPRH  )  B530  •  B530 •  8516 

8516  I F (  IT-1  )  0520,  R520,  0518 

R51R  !<=(  I T— NVORT  )  B530,  8520*  0520 

8520  WRITE! 6*8522 )  1 T. I  HI  I  IT , JT  )  ,  jT=|, NVORT) 

8522  FORMAT {  *  HlllT.jT)  NON-NORMAL  1 2EO  FROM  REAOI23) 
1  *  /  UH  16FR.31  ) 

R530  CONTI NUE 

HOI AG I  IT *1 )  *  Hit  IT, IT) 

HO|AG(IT,2)  «  -  HO  I  AG  (  IT,  l  > 
on  3430  JT-1, NVORT 


IT-' 


H1UT.JT) 

HKIT.JT) 

EHl 


/  HOUG(|T,ll 


( 2- I SEG) 421 
HO  I  AG 


♦  ( ISEG-1 )*22 


HI  I  1T.JT) 

3430  EHI | jf 1 
3440  WR I TF I  31 ) 

ENO  FILE  31 
REHINO  31 

121 

c  HRI Tf (1211 

00  8610  |T«l,NVI)RT 

0610  WRlTF (6  ,B612 )  I T, I  HOI AG( I T , I SYM ) t  ISYM-I.NSYMI 
R6  1  2  FORMAT!  *  HOIAGI IT,I SYM) 

IF|  I PRH  )  8626.  8626 ,  8614 

8M4  HO  R  A24  I  T  —  1  «  NVORT 

(F|  IT-1  )  8A20,  R620,  861R 

R61R  1 F (  IT-NVORT  )  B624,  8620,  8620 
R620  WRITF( A,RA22  )  IT , ( HI ( I T , JT )  ,  JT-l, NVORT) 

-  -  .  NOR MALI 2E0  AS  ORIGINALLY  COMPUTER 

(lH  16F0  «  3 )  ) 


13,  2E15.7  ) 


0622  FORMAT! 

1  / 
8624  CONTINUE 
8626  CONTINUE 


I  T«  •  , 


CAL'. 


MAT  1 NV I  NVORT,  H1INV  ) 


GO  TO  <  4100.  4200),  NSYM 
4100  00  4120  IT=1, NVORT 

00  4U0  - - 

4110  EHIINV(JT) 

4120  WR1TFI2I  ) 


00  4130 
REAR ( 31 ) 

4130  HR  I TF  C  21 ) 
REHINn  31 
GO  TO  6400 
C 

4200  CONTINUE 
DO  4250 
00  4240 

4240  EMI INV{  IT  ) 

4250  MRITEI 51  ) 

FNO  FILE  51 
RFW1ND  51 
C 

I F I  1PRHI 
8640  0 n  R454 
I F I  IT-1 
R640  I F I  IT-NVORT  ) 


JT=l, NVORT 

«=  HI  I  NYI  IT,  JT  ) 
EHl INV 
IT-1, NVORT 
EHl 
EHl 


J  T  —  1 , NVORT 

IT-1, - 


NVORT 

HI INV (IT ,JT) 
EHl INV 


>  R656*  8656,  8640 

IT-1 ,NVMRT 


) 


8650, 

8654, 


B650 , 
BA50, 


8648 

8650 


8650  WR I TE ( 6, R652 )  IT, C HI I NVM T , JT ) •  JT-I, NVORT) 


R652  FORMAT  I 
1  / 
R654  CONTINUE 
R656  CONTINUE 


(1H 


HI  I NV( I T , J T ) 
8E15.7)  ) 


INVERSE  OF  HI 


IT-M1 


8566 

8568 

8570 

8572 

1 

8580 


DO  4330  IT-|,NVURT 
RFAOC23)  EM2 

I F |  |PRH  >  8580 ,  8580,  P56A 

I F (  |T-I  )  8570,  0570,  8560 

1 F f  IT-NVORT  )  8580,  8570,  B570 

WR|TF(6,0572)  IT,  (EH2CJT),  JT-1, NVORT) 

FORMAT C  *  EH2 ( JT )  NON-NOR MAL I Z EO  FROM  9EA0I 23 ) 
/  IlH  16FH.3)  ) 


IT- 


CON  TIN*  16 

no  4310  JT=l, NVORT 
4310  FH2IJT)  -  FH2CJT)  /  HD|AGIIT,1> 

HR I TE ( 32 )  EH2 

no  4320  JT-1 ,NVnRT 
H2HI I JT )  -  0. 

00  4320  KK- 1 , NVORT 

4320  H2HKJTI  =  H2HKJT)  ♦  EH2IKK)  *  H1INVIKK,JTI 
HR ( Tf  I  41  )  H2H| 

4330  CONTINUE 

ENO  FILE  32 
ENO  FILE  41 
REWlAlfl  23 
REUINI)  32 
REHINO  41 
C 

on  4350 

RE An (32 ) 

nn  4350 

435n  H2<IT,JT) 

REHINn  32 


IT-1, NVORT 
EH2 

JT-1, NVORT 
«  F.H2IJT) 


I F (  | PRH 

8660  00  B6R0 
I F |  IT-1 


RA90,  R660 


)  0690, 

IT-1, NVORT 

.  .  .  .  .  )  8670,  R67n,  B66R 

8668  IF{  I T-NVnRT  )  0600,  R670,  R670 
8670  HR  I TR 1 6, 8677 )  I T , |H2 I  I T , JT > ,  JT-1. NVORT) 

8672  FnRHATl  •  H2IIT,JT)  NORMALIZED  AS  ORIGINALLY  COHPUTEO 
I  /  (1H  0F15.7)  ) 

8680  CONTINUE 
8690  CONTINUE 
C 

142  =  (2-1 SEG ) *42  ♦  C I 5EG-1 1*22 

00  4430  IT-1 , NVORT 

R  E An { 4 1 )  H2HI 

00  4410  JT-1, NVORT 

H?H| H2 ( JT ) =  0. 

On  4410  KK=1, NVORT 
4410  H7HIH2IJT)-  H2HIH2CJT) 

RFA0(3I  )  EHl 

00  4420  JT-1, NVORT 

4420  FHIHJMJT)  -  EHl(JT)  -  H2HIH2IJT) 

HRITFII42)  FHIH2 
4430  CONTINUE 
REHINO  31 
REWINO  41 


IT* 


,13 


♦  H2HI (KK)  *  H2(KK,JT) 


152 


«  1 2-1 SEG) *52  ♦  (ISEG-1 )*22 
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nn  4470  JT*1, NVORT 

REAIll5i>  FH1INV 

nn  446n  it*l.nvqrt 

H2H1 (IT)  *  0. 
on  4460  KK*1,NVMRT 
4460  H?H1I IT)  *  H2H1 I  IT) 
WRITE! I  52 >  H2H I 
4470  CONTINUE 
RFWINO  51 
C 

nn  to (  44flo *  45oo>.  i sen 
4480  FNO  file  42 
FNO  FILE  52 
RFWlNn  42 
RE W | NO  52 
go  Tn  47oo 


♦  H2IIT.KO  »  EHIINVIKK] 


4500  no  4510 
REAR! 31 1 
4510  WR1TFI22 ) 

DO  4570 
REAOI 31 > 
4520  WRITE (22  > 

END  FILE  71 
REW1N0  22 
STOP 


I T*1 .NV04T 
EH1 
EHl 

I  T*lg|JJnftT 
EH2 


4600  RE An( 2 2 ) 
WR I TF ( 2 1  ) 
C 

142 

4700  no  4720 

REAOI 142) 
nn  4720 


HU  J  I  *1  I  WVUK  I 

4720  HINV1I1T.JT)  a  EHTNVHJT) 


=  22 

I  T*1 .NVORT 
EH1NV1 
JT«1.NV0RT 


nn  4750 
nn  4740 

4740  EH1NV1IJT) 
WRITE  I  21 ) 

I  F (  IPRHI 
R716  I F (  IT-1 


NATINVI  NVORT,  HINV1  > 

1T*1 , NVORT 
JT=1 .NVORT 

=  HINVlUT.JT) 


_  EHINV1 

I F I  IPRHI  )  4750,  4750.  8716 

R716  I F (  IT-1  >  8720.  8720.  8718 

871 8  1 F (  1 T-NVORT  )  4750.  8720.  8720 

8720  WRITEI6. 8722)  I T, I HJNV1 1 1 T. JT ) ,  JT*1, NVORT) 

8722  FORMATI  1  HINVIIIT.JT)  INVERSE  OF  H1-H2*H1 INV*H2 

1  IT  =  ' ,  I  3  /  I1H  8E15.7)  ) 

4750  CONIINUE 
C 

152  »  (2-1 SEG ) *52  ♦  IISEG-1>*22 

on  4B20  JT=1 .NVORT 
REAOI 152)  H2HI 
00  4810  I T*I .NVORT 
EHINV2I IT)*  0. 

00  4810  KK*1. NVORT 

4810  EHINV2IIT)*  iHINV2IIT>  -  HINV1I1T.KK)  •  H2HKKK) 

WRITEI53)  EHINV2 
4820  CONTINUE 

ENO  FILE  53 


HINV1I1T.KK) 


no  4850  JT=i, NVORT 

REAni 53)  EHINV2 

00  4850  1T»1. NVORT 

4850  HINV2I1T.JT)  *  EH1NV2IIT) 


00  4860  IT*1, NVORT 

no  4858  JT*1, NVORT 

4858  EH1NV2IJT)  *  HINV2I1T.JT) 

WRITEI21)  6H1NV2 

IFI  IPRHI  )  4860.  4B6 0 *  8766 

8766  IFI  IT-1  )  8770,  8770.  8768 

8768  IFI  | T-NVORT  )  4860.  8770.  8770 

8770  WRITE! 6.8772 )  IT, (H1NV2I IT, JT) ,  JT*1, NVORT) 

8772  FORMAT (  •  H1NV2 I I T , JT  >  -  -  HINV1  •  H2  *  H11NV 

1  IT*', 13  /  ( 1 H  8615.7)  ) 

4860  CONTINUE 


131 

132 

00  4910 
REAOI 131) 
4910  WRITEI21) 
C 

nn  4922 

REAOI 132) 
WRITE (21) 


*  12-1 SEG) *31  ♦  1 1 S6G-1 )*22 

*  I  2- 1 SEG ) *32  ♦  1 1 SEG-1 )*22 
IT-1 .NVORT 

EHl 

EHl 

|T*1 .NVORT 


GO  TO (  4922.  4920).  I SEG 
4920  REWINn  22 
4922  CONTINUE 


6400  CflNT INUE 

nn  6480  TS0LVE*1,4 
IF  I  IVEL(ISOLVE)  )  o*bu«  o*nu,  e 
6426  NVELT  «  NUT  1 1  SOLVE ) 

nn  6460  | SVN»1 ,NSYM 

nn  6460  1 T«1 .NVELT 

READ! 24 )  G 

WR1TEI21)  G 

|F(  | PRG  )  6460,  6460,  8912 

8912  IF!  IT— 1  _  )  8916.  8916,  8914 

8914  IFC  IT-NVELT  >  6460,  8916,  8916 

8916  nn  8920  N*1  ,3 


8920  WRITE! 6,8922 )  1S0LVE#  ISVH,  IT,  N.  IGIJT.N1.  JT*1. NVORT) 

8922  FORMAT (  •  ISOLVE*'.fl,  5X,  '  ISVMa',11,  5X.  •IT*1. 13.  5X. 

1  •  N*'.I1.  15X,  •  GIJT.N)  READ  FROM  UNITI24)'  /  | 1M  16F8.3)) 


6460  CONTINUE 
6480  CONTINUE 

ENO  FILE  21 
REWINn  ?1 
REWIND  24 
STOP 
FNO 
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SUBROUTINE  MAT1NVC  NVORT,  A  ) 

DIMENSION  INOEX  (156,3),  A  I NVORT  * NVORT I 

DOUBLE  PRECISION 

2  AMAX  ,  SWAP  ,  PIVOT  •  T 

NIN2  =  NVORT 


REFERENCE 

initialization 

INf)EX(  J  (3)  OF  M/S 
on  52  J-1.NIM2 
52  IN0EXCJ.3)*  0 


PCCORNICK/SAL VAOflR  I  P.306,  KUO  P.16B 
IPVOT(J)  OF  KUO 


80 

85 

100 

105 

140 


150 

200 

310 

350 

400 


450 

550 


705 

710 


715 

8100 


730 


no  550  I=1,NIM2 

I ROW  -  I 

ICOLUM  =  I 

SINCE  THE  H-HATRIX  IS  01 AGONALL Y  OOMINANT  RYPASS  PIVOTING 
GO  TO  140 

SEARCH  FOR  PIVOT  ELEMENT 
AMAX  ■  o.on 

-  00  105  J-1.NIM2 
IF  €  INOEX  C  J  *3 )  -  1  )  60,  105,  60 

nn  ino  k=i,nin2 

IF (  INOEX ( K , 31  -  I  i  Bn,  100,  715 

IF  C  AMAX  -  ARSUfJ.K))  I  85,  100,  100 

■  J 

■  K 

-  ARSC  A ( J,K I  i 


IRON 
ICOLUM 
AMAX 

CONTINUE 

CONTINUE 

CONTINUE 

INOEX  I  ICOLIJM,  3) 
INDEX (I  ,1) 

INOEX  1 1  ,2) 


I NOFX ( ICOLUM, 3) 

IROW 

ICOLUM 


INTERCHANGE  ROWS  TO  PUT  PIVOT  ELEMENT  ON  01 AGONAL 

IF «  l ROW  -  ICOLUM  )  150,  310,  150 

nn  200  L-I,NIM2 

SWAP  =  All  ROW  , L ) 

All  ROW  , L )■  AIICOLUM,L) 

AC ICOLUM, L)=  SWAP 

OIVIOE  PIVOT  ROW  BY  PIVOT  ELEMENT 

ICOLUM) 


PIVOT  «  A ( ICOLUM, 

A  C I COLUM , I COLUM )-  1 .00 
00  350  L-I.NIM2 
A(  ICOLUM, L)=  A ( ICOLUM, L )  / 


PIVOT 


REDUCE  NnN-PIVOT  ROWS 
DO  550  L1-1.NIM2 

IFC  LI  -  ICOLUM  )  400,  550,  400 

T  -  ACL1, ICOLUM) 

A I  LI .ICOLUM ) *  n.00 
00  450  L=1,NIM2 

ACL1.L)  =  A I L 1 , L )  -  A ( ICOLUM, L I  *  T 

CONTINUE 

interchange  columns 

00  710  !*1,NIM2 

L  -  NIM2  *  1  -  I 

IFC  INDEX  CL , 1 )  -  IN0EXCL.2)  )  630,  710,  630 


JROW 

jcni 


JCnLUM 


i  asKJtir. 


00  705  K-1.NIM2 
SWAP  ■  ACK, JROW) 

ACK.JROW)  =  A { K , JCOLUM ) 
ACK,JCOLUM)=  SWAP 

continue 

CONTINUE 

TEST  FOR  SINGULARITY  OF  MATRIX 
00  730  K-1.NIM2 

~  "  “  ‘  715,  730,  715 


30  K-1.NIM2 
I F I  INDEX ( K,3)  -  I  I 
WRITE  16, 8100) 

FORMAT C 4 1  SINGULAR 


STOP 
CONTINUE 


MATRIX  OCCURED  IN  SUBROUTINE  NATINVM 


RETURN 

ENO 
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Output  Data 

Values  of  the  HDLAG  and  normalized  H  matrices  may  be  inferred 
from  the  output  data  of  Program  A.  Representative  values  for  the  illus¬ 
trative  case  described  herein  are  shown  for  elements  of  these  matrices 
in  addition  to  the  partitions  of  the  H~1  matrix,  A^  and  a(2). 

First  Partition  Second  Partition 

HDIAG(1,  1)  =  -3.  45  HDIAG(1,  2)  =  3.45 

=  1.000  =  0.242 

A^\  =  1.082  A^2\  =-0.314 

2.3  USER'S  GUIDE  TO  PROGRAM  C-FIRST  JOB  STEP 
Input  Data 

The  user  must  define  the  following  variables  by  arithmetic 
expressions: 

NSYM  This  is  defined  in  Section  2.  1  of  this  Appendix 

NVORT  Number  of  vortices  on  half  of  a  planform 

NUT(l)  Number  of  points  on  one  side  of  the  x-z  symmetry 

plane  at  which  influence  coefficients  have  been  com¬ 
puted  in  Program  A  when  ISOLVE  =  1  (NUT(l)  = 
NVORT) 

NUT(2)  Number  of  influence  coefficient  points  when  ISOLVE  = 

2.  The  contribution  of  NUT(2)  from  each  wing  part, 
IW,  is  NSPAN(IW)  x  (NCHORD(IW)  -  1). 

NUT(3)  Number  of  influence  coefficient  points  when  ISOLVE  = 

3.  The  contribution  to  NUT(3)  from  each  wing  part, 
IW,  is  (NSPAN(IW)  -  1)  x  NCHORD(IW). 

FORTRAN  statements  used  to  compute  NUT(l),  NUT(2),  and 
NUT(3)  are  to  be  found  in  Programs  A  and  B,  and  in  the  second  job  step 
of  Program  C. 

The  matrices  of  geometric  factors  which  were  written  in  Program 
B  as  a  data  set  using  reference  number  21  are  read  using  reference 
number  31  in  this  job  step. 

Dimensions  of  Arrays 

Wherever  the  number  156  appears  as  a  dimension  in  the  program 
listing,  it  indicates  that  the  dimensions  in  those  locations  are  equal  to 
NVORT. 
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program  c  -  isi  job  step 

DIMENSION**"  TRANSEERS  TAPE<31>,  HOUG,  HINV,  H,  G,  ONTO  DISK  1211 
^NSYH^  '  H,NV  *<561,  H  (1561,  GU  <156,31* 

5vD5TM,NS  fJJTEMENTS  ARE  PECULIAR  TO  THE  MODEL  <  NG  OF  THE  M-117  BOMB 
NUT  < 1 )  =156 

NUT  12)  =  16P 

NUT ( 3  >  =  195 

AHOVE  STATEMENTS  ARE  PECULIAR  TO  THE  MODELING  OF  THE  M-UT  BOMB 


READ ( 31 ) 
MRI TE  <  21 ) 


HOUG 

HOUG 


00  6250  ISYH-l.NSYM 
DO  6250  I T=1 ,NVORT 

REAOI 31 )  H1NV 

c6250  NRITEI21)  HINV 

OO  6350  I SYMel , NSYM 
DO  6350  I T=1 fNVORT 

REAOI 31 )  H 

C  .  iF  lHGAMA-1.  WRITE  1211  H 
^6350  CONTINUE 

DO  6A50  I  SOL  VE= I «  3 
NVElT  =  NUTMSOLVE) 

DO  6450  ISYM=1,NSYM 
DO  6450  1T=1, NVELT 

REAOI  31)  G 

c  IF  lyEL<l)«l,  REMOVE  FOLLOWING  2  CAROS 
IFI  I SOLVE-I  )  6450,  6450,  6440 

6440  CONTINUE 

HRI TE I  21 )  G 

^6450  CONTINUE 

ENO  FILE  21 
REMIND  31 
REMINO  21 

ENO 


Output  Data 

A  subset  of  the  data  set  containing  HDIAG,  H-1,  H,  and  2r,  which 
is  read  from  tape  in  this  job  step,  is  written  on  magnetic  disk,  data  set 
reference  number  21.  See  Section  3.  3.  1  for  details. 


2.4  USER'S  GUIDE  TO  PROGRAM  C-SECOND  JOB  STEP 


Input  Data 

The  input  data  are  similar  to  those  of  Program  A,  except  for  the 
additions  noted  below. 


The  following  data  are  read  from  punched  cards: 


IHGAMA  =  0 
=  1 

ICF  =  1 
=  2 

NSCORD(IW) 


H  is  not  contained  on  data  set  reference  number  21 
H  is  contained  on  data  set  reference  number  21 

Laminar  skin  friction  assumed 
Turbulent  skin  friction  assumed 

Number  of  chordwise  network  points  on  the  geometric 
surface  of  wing  part  IW;  force  coefficients  are  summed 
only  over  vortex  segments  corresponding  to  these 
points  (e.g.,  not  over  the  segments  in  the  wake 
of  the  sample  run  described  herein) 
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XM,  ZM 
YL,  ZL 

XN,  YN 
XCG,  YCG, 
IBC  =  0 

=  1 

IPRVFS  =  0 
=  1 

IPRVEL  =  0 
=  1 

IPRGAM=  0 
=  1 

IPRCP  =  0 
=  1 

IPRCF  =  0 
=  1 

1X1,  1X2 

IY1,  IY2 

IZ1,  IZ2 

DOWNV 
(IX,  IY,  IZ) 

SIDEV 
(IX,  IY,  IZ) 


VMAG 
(IX,  IY,  IZ) 


Body  axis  coordinates  of  pitch  axis,  in. 

Body  axis  coordinates  of  roll  axis,  in. 

Body  axis  coordinates  of  yaw  axis,  in. 

ZCG  Body  axis  coordinates  of  center  of  gravity,  in. 

Store  is  assumed  immersed  in  -a  uniform  flow  field; 

i.  e. ,  no  parent  aircraft  is  present 

Store  is  assumed  immersed  in  a  nonuniform  flow 

field 

Do  not  print  the  NUFF  velocity  components  in  SUB¬ 
ROUTINE  FRESTR 
Print  the  NUFF  velocity  components 

Do  not  print  velocity  distributions  in  SUBROUTINE 
VELOCY 

Print  velocity  distributions 

Do  not  print  the  strengths  of  the  vortices,  Tj 
Print  Tj 

Do  not  print  the  pressure  coefficient,  Cp,  distribution 
Print  Cp 

Do  not  print  the  force  coefficient  distribution 
Print  the  force  coefficient 

Counters  for  the  initial  and  final  grid  points  at  which 
NUFF  data  are  input  in  the  x-direction,  usually 
1X1=1 

Counters  for  initial  and  final  NUFF  grid  points  in  the 
y-direction,  usually  IY1  =  1 

Counters  for  initial  and  final  NUFF  grid  points  in  the 
z-direction,  usually  IZ1  =  1 

Downwash  angles  (deg)  of  the  NUFF  (positive  DOWNV 
is  upwash) 

Sidewash  angles  (deg)  of  the  NUFF  (positive  SIDEV 
is  inwash  on  negative  y-side  of  the  x-z  plane  of 
symmetry) 

Ratio  of  the  magnitude  of  the  local  velocity  vector  to 
the  magnitude  of  the  velocity  at  infinity 
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The  following  data  are  defined  by  FORTRAN  arithmetic  expressions: 


XP(IX),  YP(IY)  Grid  points  at  which  NUFF  data  is  input 
ZP(IZ)  These  points  must  be  ordered  in  increasing  values  of 

XP,  YP,  and  ZP 


S 

CBAR 

BSP  AN 

XNET,  YNET, 
ZNET 


Reference  area  used  in  definition  of  the  force  coeffi- 

O 

cients  of  a  model  store,  inf 

Reference  chord  length  used  in  definition  of  pitching- 
and  yawing- moment  coefficients  of  a  model  store,  in. 

Reference  lateral  dimension  used  in  definition  of 
rolling- moment  coefficient  of  a  model  store,  in. 

Coordinates  of  the  vortex  network  points;  these 
must  be  the  same  as  the  corresponding  values 
in  Program  A 


Dimensions  of  Arrays 

The  dimensions  in  this  job  step  are  the  same  as  those  in  Program 
A,  with  the  addition  of  the  following.  The  counters  for  the  number  of 
grid  points  in  the  X,  Y,  and  Z  directions  at  which  the  nonuniform  flow 
field  is  specified  (1X2,  IY2,  and  IZ2)  are  the  dimensions  of  the  coordi¬ 
nates  of  these  points.  These  counters  also  constitute  the  dimensions  of 
the  downwash,  sidewash,  and  velocity  magnitude  variables  at  these  grid 
points.  Thus,  the  DIMENSION  statement  is  based  upon  the  values 
XP(IX2),  YP(IY2),  and  ZP(IZ2);  and  DOWNV(IX2,  IY2,  IZ2),  SIDEV 
(1X2,  IY2,  IZ2),  and  VMAG(IX2,  IY2,  IZ2). 
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PROGRAM  C 
SECOND  JOB  STEP 

INPUT  DATA  FROM  PUNCHED  CARDS 
force  SAMPLE  RUN 

COEFF  IBC-0  M=0. 


AMACH 

0.0 

IHGAMA  ICF 

0  1 


NMP 

3 


•  NCHORDI 11 

NSPANIll 

NCH0R0(2) 

NSPANl 2) 

NCH0RD13I 

NSPANl 31 

24 

5 

9 

5 

9 

5 

NSCOROf IW1 

20 

9 

9 

MTIPI 11 

HROOT 111 

MT1PI2I 

MROOTI2I 

HTIPI31 

MR00TI3I 

0 

0 

1 

1 

1 

1 

XCG 

YCG 

ZCG 

-1.6440 

0.0 

0.0 

XM 

Z  M 

VL 

ZL 

XN 

YN 

-1.6440 

0.0 

0.0 

0.0 

-1.6440 

0.0 

S 

BSPAN 

CBAR 

0.5027 

O.ROOO 

4.3950 

N$YM 

IRC 

2 

0 

I VFLI 11 

1 VFLI 21 

IVELI3I 

IVELI4) 

1 

1 

1 

0 

IPRG  IPRVFS 

IPRVEL  t PRGAM 

1PRCP  1PRCF 

0  0 

0  0 

1  1 

1X1 

1X2 

IYI 

IV2 

IZ1 

IZ2 

1 

10 

1 

a 

1 

10 

AEDC-TR-72-162 


noon 


A  EDC-TR-72-162 


C  PROGRAM  C  -  2 NO  JOB  STEP 

C  THIS  JOB  STEP  PERFORMS 

C  1)  REA0(5,  )  INPUT  OATA  AND  APPLIES  GOETHERT  TRANSFORMATION 

C  2)  compute  common/cnet/  AND  common/ccooro/ 

C  3)  WRITE! 51 >  INPUT  DATA,  COMMON /C NET/*  COMMON/CCOORO/ 

C  4)  PASSES  HOI  AG  *  H I N V ,  G  ON  OISK  UN]T(21)  Tl)  THE  NEXT  JOB  STEP 


COMMON/CNET 

1  NCH0R013) 

2  NUC  (3*4) 

^common/ccooro/ 

3  ROC  (156,3)*  AX 

n] MENS  ION 

1  NT  I  P(  3  ) 

7  XP(IO) 


NWP  *  NIWP 

NSPAN  (3)  *  NSCOROI 3 1  *  NVOR  (31  * 

Nils  (3.4)  v  NVEL  13*4)  ,  NUT  (4] 

XNET  (24,5,3).  YNET  (24,5.3),  ZNET  (24,5,3), 
AKSI  (23,4.3).  ETA  (23,4.3),  ZETA  123.4,3), 
XFLOWF(  l.  1).  YFLOWFl  1,  l],  ZFLOWF!  1,  1), 
(3),  AY  (3),  AZ  (31 


MRDOT ( 3 ) 
VP(8) 


[ VEL ( 4 ) 
ZP( 10) 


l>nwNV(10,8,IO).S(nEV(  10,A,10),VMAG(  10,  R,  10] 


0] MENS ION 


CXO 


(3) 


XP(1X),  VP(IV),  ZP(1Z) 
XORir,  •  Y0R1G  .  Z0R1G 


XM,  2M,  YL.  ZL,  XN.  YN 


XCG 


YCG 


7100  FORMAT (  1615  ) 

7200  FORMAT (  REin.O  ) 
7250  FORMAT (  iOER.O  ) 
7300  FORMAT (  ROM 
1 

RF AO ( 5 • 7300 ) 
rEaO(  5,7200) 
r|aO( 5,7100 ) 
REAO( 5,7100 ) 

RE  AO (5,7100) 
REAO( 5,7100) 

READ (5,71 00 ) 
REAO( 5 • 7200  ) 
REAO( 5,7200 ) 
READ( 5,7100 ) 

RF  AO  (  5 , 7 1  00  ) 

RF AD( 5 ,7100  ) 

1 

C  NON-UNIFORM  FREE 
REAO(5,7lOO ) 


NONUNIFORM  FLOW  F1EL0  GR 1 0  POINTS 

IN  PARENT  A/C  REF.  SVSTFM 

ROTATIONAL  AXFS  CDORO(NATFS 

IN  PARENT  A/C  REF.  SYSTEM 

ROTATIONAL  AXES  COORDINATES 

IN  STORE  AXES  RFF.  SYSTEM 

POINTS  AT  WH(CH  VELOCITY  ]S  COMPUTED 

]N  PARENT  A/C  REF,  SYSTFM 

STORE  CENTER  OF  GRAVITY 

IN  STORE  AXES  REF.  SYSTEM 


amach 

] HGAMA ,  1CF 

(NCHOROt IW) , 

( NSCORD ( I W) , 

(KTIP( IW), 

XCG  ,  YCG 

XM,  ZM,  YL. 

NSVM  ,  1BC 

IVEUD,  1  VEL  ( 2 ) , 
IPRG  , 

1PRVFS,  TPRVEL 
STREAM  BOUNDARY  7 
1X1,  1X2,  1Y1.  ]Y2 


NSPAN(lW),  1 W“ l , NWP ] 

] W-1,NWP] 
MROOT(IW),  IW-1.NWP] 

,  ZCG 
ZL,  XN,  YN 

1 VEL( 3 1 ,  1 V6L( 41 


FORMULAS  FOR  XP(IX),  YP(]Y),  ZPI1Z1  ARE  PECULIAR  TO  M-U7  BOHR 


111 


no 

X) 

120 


00 
in  xpi 
on 

1120  VP  I  I Y ) 

00  ‘ 

1130  ZP( 

00 

on _ 

1140  R6AD(5^7250 


c&noiKons 

-  life' 


IPRCP 


1PRCF 


I  Z2 


no 
on 

1150  REAI 
00  l 
on  i 
1160  READ 


-1X1.1X2 
■  -1*.  ♦ 
lV=lVljlV2 


IX 


1X1 


♦  IV  -  IV1 


1Z  ) 


40  IV=1VI,1V2 
5?7250)Z"I2l|00WNVnX,lY,lZ), 


.  IX-l Xl» 1X21 

_  _  -1VW1V2 

1150  1Z-IZ1.1Z2 

Dl 5,7250 )  ( S 1 0  E V ( IX.IY.IZ).  |X=]X1,1X2) 

60  1Y-1Y1.IY2 

60  1Z-JZ1.1Z2 

5,7250)  I VMAGi IX.IY.IZ),  1X-IX1,1X21 


FOLLOWING  STATEMENTS  ARE  PECULIAR  TO  THE  M00EL1NG  OF  THE  H-llT  BOMB 
BSPAN  -  .B 

S  -  3.1416  •  IRSPAN/2.)4P2 

CBAR  -  4.395 


XNET (  5, 
XNET (  9, 
XNET (11 , 
XNET (15. 

Kifli:: 


,1)  -  4.395 
,1  )  -  3.435 
,1)  -  2.935 
,1)  =  2.035 
,1)  M.  1.05ft 
,1)  -  0. 


00  1254  1-1, R  _ 

1254  XNEi (1,1,1)  -  XNET 15,1,1)  *  I  1-5)  •  ( XNET( l 1 ,1, 1 1 -XNET( 5,1 , 1 ) ) 

l  /  111-5) 

XNET ( 10,1.1 )  -  (  XNET (9,1,1)  +  XNET(ll.l,l)  1  /  2. 

HP_!?56_  . _  1-12,14 


1256^  XNET 11,1,11 


e  XNFTlll, 1,114  (  1-11)4  ( XNFT (15,1,1 1- XNET 1 11,1,1)1 


/  (15-11) 


1258  XNfI(1,1,1)  1«1xSe?  (15,1,1  )♦ 

1  / 

C 

00  1260  1-20,23 

1260  XNET (1,1,1)  -  XNET ( 19,1 ,1)4 

1  / 

NNC  -  NCHOROI 1 ) 

NNS  -  NS PAN (1 ) 

00  1262  1-1 ,NNC 

00  1262  J-2  «NNS 

1262  XNET ( 1 , J ,1 )  -  XNET (1,1,1) 

XO  -  1.055 

ZO  -  -  SORT!  1.6442  -  X0442  ) 

2NETC  1,1,1)  -  -.2ftl5 

:  =:*m 

ZNFT (19,1,1 )  =  -.4 
ZNET ( 24, 1 , 1 )  -  0. 


I  1-15)4  ( XN8T( 19,1,1 1-XNET( 15,1,1 11 
119-15) 


(  1-191*  ( XNFT 1 24,1, I )-XNET (19,1,1) ) 
(24-19) 


OH  1294 
1 F (  1-11  ) 
1272  |F(  1-15  ) 
1274  1*=  t  1-19  ) 
1276  I F (  1-24  ) 
C 

C  1-1,11 
1282  ZCL 


1-1, NNC 

1282,  1282,  1272 
12R4,  I2ft4,  1274 
1286,  1286,  1276 
1288,  1290,  1290 


-  -  ZNET ( 1 ,1 ,1 ) 
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-  -  ZCL 


-  ZNET ( 1 5  •  l  •  I  ) 


in 

SORT  C 


GO  TO  1292 

£  1-12. 15 

1284  ZCL 
1 

ZCL 

r,n  to  1292 

c 

C  1-16*19 

1286  ZCL 

r.n  TO  1292 

c 

C  (-20,23 

1288  ZCL 

GO  TO  1292 

C  1-24 

1290  ZCL 

1292  YNETf 
YNET( 

YNET( 

YNET  ( 

YNETt 
ZNET  I 
ZNEI  ( 

ZNET! 

ZNET!..  ... 

ZNET ( 1,5,1 ! 

1294  CONTINUE 

IF  (  NWP-I  I  1380,  .1380,  1300 
1300  NNC  -  NCHDRDm 

NNCM1  =  NC  HORO (  2  >  — 1 
NNS  ■NSPANJ2) 

NNSM1  ■  NSPANI2)  -1 

XNET ( 1  .1  ,2)  ■  3.9450 

XNETd  «NNS  ,2 )  =  3.4350 

XNET (NNC, 1  ,2)  =  4.3950 

XNET1NNC*NNS*2)  =  4.3950 

DO  1312  1=1, NNC 

XNET ( I  ,1  ,2)  -  XNETC 1,1  ,21 

1  - 

XNET  I I  «NNS  *2 ) 


(  Ml)* 
(1 5-111 


I ZNET C 15,1,1 I-ZNETI 11,1,1) I 


1 .6**2  -  (XNEfd,  I,1J-X0I**2  ) 


,1,1) 
,2,1  1 
•  3,11 
,4,1  ) 
,5,1  > 
.1  »l  ) 
2,1  ) 
3,1  ) 
4,1) 


0. 

0. 

ZCL  • 
ZCL 
ZCL  • 

0. 

-  ZCL 

-  ZCL 
0. 
ZCL 
ZCL 


SIN( 
S I N  ( 


1416  /  4. 
1416  /  4. 


StNf  3.1416  i  4. 
SI N (  3.1416  /  4. 


1 
2 

on  mo 

1310  XNET (I , J ,2 ) 

1 312  CONTINUE 
C 

YNETIld  ,2) 
YNET( l, NNS. 2) 
ZNET  f 1 , 1  .2) 

ZNETU,NNS,2! 


•  FLOAT! 1-1 1  / 
XNET ( l ,NNS • 2 ) 


•  (  XNET  (NNC,  lv2 1-XNETM  ,1,21 
(NNC- l I 


■M  XNET ( NNC, NNS, 2 )— XNET( 1 , NNS, 2 1 
*  FLO  AT  (1-1)  */  (NNC-1I 
J-l, NNS 


XNET ( I ,1 ,2 )  ♦  I  XNETC I , NNS, 2 ) -XNET( I , 1,21 

*  FLOAT! J-l )  ./  f  NNS— 1 1 


on  1350 
YNET (I , J ,2 ) 


1350  ZNETC 1 ,J,2  > 
1 


J-l 


0.4020 

0.1991 

YNET (1.1  ,2) 

—YNET ( 1 «NNS , 2 ) 

•  NNS 

YNET (1,1,2) 

♦  FLOAT(J-l)  ' 
ZNET  '  ‘  " 

♦  FLDA 


(1,1,2)  -*■  (  Z 

T (J-l  )  /  'I NNS— 1 


♦  I  VNET( 1 , NNS, 2  I 
( NNS— 1 1 

“NET ( 1 , NNS, 2 ) 


YNE  T 1 1 , 1 , 2  I  I 
ZNET(i,i,2I  I 


00 

1360 

1=2, NNC 

DO 

1360 

J=1 ,NNS 

YNE 

T  ( 1  ,J  ,2  1 

!  =  YNETi 

1360  ZNET [ 1 ,J,2 

1  =  ZNET' 

11:1:3: 


3) 


OD  1370 
on  1370 
XNETC I,J,3) 
YNET ( I ,J ,3 1 
1370  ZNET  ( I  “ 
13 BO  CONTCNUI 

r>n  1420 
NNC 
NNS 

DO  1420 
DO  1420 
XNET  ‘ 

1420  YNET 


1=1 , NNC 

J=l * XnI T( I , J,2 ) 

*  YNET ( I , J ,2 ) 
-  —ZNET ( I , J,2 ) 


IU=1 ,NUP 

=  NCHORO( INI 
NSPAN(IW) 


1=1, NNC 
J-l, NNS 


ABOVE 


BETA 

S 

BSPAN 

YCG 

ZCG 

YL 

rN 

ZH 

on  1500 

NNC 

NNS 

on  i5oo 
nn  1500 


(T,fl,  W)  =  -  XNEL(1»J,IH) 
(ItJ.lW)  =  -  YNEf(i,J,lW) 
E  STATEMENTS  ARE  PECULIAR 


TH  THE  MODELING  OF  THE  M-117  BOMB 


YNET(I,J,1U)  =  BETA 
1500  ZNET( I.J.IM)  -  BETA 


=  SORT!  1.  -  AMACH4*2 
=  BETA**2  *  S 
-  BETA  •  RSPAN 
=  BETA  *  YCG 
«  BETA  *  ZCG 
=  BETA  *  YL 
=  RETA  *  YN 
=  BETA  *  ZL 
■  BETA  *  ZM 
IM-l ,NMP 

=  NCHORD ( IN) 

=  NSPAN( IN) 

1=1 ,NNC 
J=1 ,NNS 

-  YNET!  I,J,«IW) 

ZNET ( I , J, IN ) 


on  i5?o 
1520  YPIIYI 
on  i53n 
1530  ZP(IZ) 


on  1550 
on  1550 
on  1550 


|Y=IY1,IY2 

=  RETA  *  YP(IY) 
IZ=IZ1,IZ2 

=  BETA  •  ZP(IZ  > 


IX-IX1.IX2 
IY-IY1 .IY2 
I  2=  I  Z1 , 1 Z2 


nnNNVHX.IV,|Z)  =  RETA  *  DftWNV  (rl  X  ,  I  Y«  I Z I 
1550  S IOFV( IX, IY, IZ )  =  RETA  *  SIDEV( IX, IY, IZ I 


WR1TFC6. 73001 
MR  I  TF (6  t  R004 ) 
8004  FflRKAT  (’/ 

MR  I TE ( 6 , R006 ) 
R006  FORMAT  I / 

NRIT^IG, ROl O) 


‘A  MACH 
AMACH 
IHGAMA, 
I'HGAMA 
NWP 


•Z6F20.2I 

1CF 

ICF 1 /6 120  I 
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*010  Fn«M*T</  » 

WRITE I  A, 8020) 

I 

*020  FORMAT ! /  • 

l  NCHnRD!2> 

2NSPANI3I  • 

WR I TF  4  6**030 ) 

8030  FORMAT (/  • 

WRITF!6,*04D> 

*040  FORMAT  I /  • 

l  MTIPI21 

2MROOTO)  • 
WRITE(6.806D> 
l  ZCG 

*060  FORMAT ( /  * 

1  ZCG 

HR  I  TEl 6,8050  > 

*050  FORMAT!/  * 

1  V  l 

2  YN  ■ 
WRITP<6,*0T0> 

I  CBAfi 

*070  FORMAT (/  * 

I  CBA* 

WRITE (6,*0H0  I 
8080  FORMAT  I /  • 

WR|TE< 6*8090 ) 

*090  FORMAT ( /  * 

l  IV6L I  3  > 

WRITFI6.8100 ) 

1  I PRVFS, 

BLOO  FORMAT!/  * 

1  *  1PRVFS 

2 

HRI TE ( 6**110 ) 

Rl 10  FORMAT!/  • 


NWP 

(MCHOROllHI, 

1W=I ,NWP| 

NCHORDf I ) 
NSPAN!?) 

(MSCOBi)!  IW), 
NSCORIH  IWI 
IMIIP! IWI, 
IW-l.NHP) 
MTMMI I 
MROOT ( 2  I 


NSPAN! |W| , 

NSPAN! |  I 
NCHOROni 

•  /M 70  ) 

[W-I.NHPI 

»/6I2D  I 
"ROOT  I |W), 

MROnTl I ) 
MTIPC3) 

/6 120  I 

VCG. 

ycc, 

•/6F20.4I 
YL.  ZL  •  XN,  YN 
7M 


SSPAN 

*/6F20  ,  A  I 

IRC 

IHC/M2D  I 


1 1 VEL! I  SOLVE I«  ISOLVE  *  1 »4 1 
IVELIU  I  VFL  <  2 


I  VEL ( 1 1 
I  VEL  1 4  > 

IPRG, 

9  IPRGAM, 
IPRG1 , 

IPRGAM 


1PRCP  IPRCF •/ 

10X,  121 10  I 

1X2.  I Y I •  IY2.  I Z I •  IZ2 
1X2 


00  2130  I w* l ,NHP 
NUClIWfl)  *  NCH0RD(IW)-1 
NllS  (  IW.l  )  «  NSPAN!  1W>  -1 

NUC l ( W « 2  >  =  NCHORO(IW) 

NllS!  IW,2>  =  NSPANI  1H >  -1 

NUC! IW,  3 )  *  NCH0R0CIHJ-1 

2130  NUSIIW,3)  =  NSPAN! IWI 


NVORI  l)  -  (NCHORD!  11-11  *  (NSPAN!  11-1) 

00  2140  I  SOLVE* 1*3 

2140  NVEL !  l«l SOLVE  1  *  NUC!  1, ISOLVE I  *  NUS!  I* I  SOLVE) 

IF!  NWP-l  I  215*.  2158,  214* 

214*  00  2150  IH=2,NHP 

NVOR(IH)  =  NVORIIH-II  ♦  (NCHORD! IHI-1 )  *  (NSPAN! IWI-1 ) 

00  2150  IS0LVE=l,3 

2150  NVFL l  IH,  I SDLVE I  *  NVEL ( I W-l ,( SOLVE ) 

l  +  NUC! IW.l SOLVE  I  «  NUS!  IW, ISOLVE) 

2158  00  2160  ISOLVE-1,3 
2160  NUT! (SOLVE)  =  NVEL!  NHP, ISOLVE) 


LVEI  •  NUS! IW, ISOLVE) 


00  2670  1 W=l t NHP 

NVORC  =  NCHDRO ! IH )-l 

NVORS  =  NSPAN (IH >  -1 

00  2650  IP-1 .NVORC 
I  =  IP 

no  2650  IQ=1|NV0RS 

IF!  IH— 1  )  *2610,  2610,  2620 

2610  IT  =  ! I  P—1  I ♦NVORS  ♦  10 

Gn  TO  2630 

2620  IT  «  N VOR! I W — 1 )  ♦  !IP-1)*NV0RS  ♦  10 
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-0.3*13 

-0.  3005 

-0.2490 

-0.|99| 

1-  1 

0.  4020 

0.3*13 

0.3005 

0.2498 

0.1991 

I*  2 

•0.4070 

-0.3*13 

-0. 3005 

-0.2490 

-0. 1991 

1-  7 

o.*o 80 

0.3*13 

0.3004 

0.24  90 

0.1991 

1-  3 

-0.4070 

-0.3513 

-0.300* 

-0.2490 

-0.|991 

I-  ?  * 

0.4020 

0.3*13 

0.  3005 

0.2490  " 

0. 1991  ” 

1*  4 

-0.4020 

-0.  3*13 

-0.300* 

-0.7494 

-0.  1991 

I*  4 

0.4020 

0.3*13 

0.3005 

0.  24  90 

0.  1991 

I*  4 

-0.4020 

-0.3*13 

-0. 3005 

-0.2490 

-0. 1991 

1-  * 

0.4020 

0.3*13 

0. 3005 

0.2490 

0.  I®91 

1*  6 

-0.4070 

-0.  3*  13 

-0.300* 

-0.24  90 

-0.  1991 

1-6 

0.4020 

0.3*13 

0.3004 

0.2499 

0.  199| 

1*  7 

-0.4020 

-0.3513 

-0.3004 

-0.2498 

-0.1991 

I-  7 

0.4020 

0. 3*1 3 

0. 3005 

0.2498 

0.  199| 

I-  • 

-0.4020 

-0.3*13 

-0.300* 

-0.2690 

-0.1991 

1-  * 

o.4o;o 

0.3*13 

0.  3005 

0.2490 

0.  1991 

1*  9 

-0.4020 

-0.3*13 

-0.300* 

-0.2498 

-0.  1991 

I-  9 

"O.  4020 

0.3*13 

0. 3005 

0.2498  (f.  1*91 
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Output  Data 

The  output  data,  which  is  passed  to  the  following  job  step  using 
data  set  reference  number  51,  consists  of  the  inputs  to  this  step  plus 
arrays  that  are  functions  of  the  geometry  and  vortex  modeling. 


2.5  USER'S  GUIDE  TO  PROGRAM  C-THIRD  JOB  STEP 


Input  Data 

The  following  are  input  data  for  the  optional  version  of  the  third 
job  step  of  Program  C,  in  which  trajectories  are  computed. 

LM  Object-time  dimension  of  the  dependent  variables  of 

the  equations  of  motion 

AMACH  Free- stream  Mach  number 


DT{1)  Time  interval  of  half  of  a  numerical  integration  step, 

sec 

NCASE  Number  of  vortex-lattice  cases  to  be  computed  with 

each  transferal  of  data  from  data  set  reference  num- 
ber  21  into  the  computer  core 

NK  Number  of  time  steps  plus  1  in  the  trajectory;  NK-1 

must  be  a  multiple  of  NCASE- 1 

SCALE  Ratio  of  full-scale  store  dimensions  to  store  model 

dimensions 


WGTTA 

S 

BSPAN 

CBAR 

A IX,  AIY,  AIZ 


Components  of  full-scale  store  weight  along  X,  Y, 
and  Z  wind  axes,  lb 

Full-scale  store  reference  area,  ft2 

Full-scale  store  lateral  reference  length,  ft 

Full-scale  store  longitudinal  reference  length,  ft 

Full-scale  store  mass  moments  of  inertia  about  body 
axes,  slug-ft2 


AIXZ 

RHO 

ASOUND 


Full-scale  store  cross  product  of  mass  moment  of 
inertia  in  the  body  x-z  plane,  slug-ft2 

Free- stream  density,  slug/ft2 

Speed  of  sound,  ft/sec 
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FX1,  FX2  Thrust  forces  acting  along  full-scale  store  body 

x-axis  (see  Fig.  12,  Ref.  4),  lb 

FZ1,  FZ2  Ejector  forces  acting  on  full-scale  store  (see  Fig.  12, 

Ref.  4),  lb 


ALX1,  ALX2  Body  x-axis  coordinates  of  full-scale  store  ejection 
stations  (see  Fig.  12,  Ref.  4),  ft 


CLP 

CMQ 

CNR 

U(l),  V(  1),  W(  1 ) 


Roll-damping  coefficient  (see  p.  viii  of  Ref.  4) 

Pitch-damping  coefficient  (see  p.  viii  of  Ref.  4) 

Yaw-damping  coefficient  (see  p.  viii  of  Ref.  4) 

Initial  values  of  full-scale  store  translational  velocity 
components  along  body  x  axis,  y  axis,  and  z  axis, 
respectively,  ft/  sec 


P(l),  Q(l),  R(l)  Initial  values  of  full-scale  store  rotational  velocity 
components  about  body  x  axis,  y  axis,  and  z  axis, 
respectively,  radians /sec 


X(l),  Y(l),  Z(l) 


Initial  values  of  full-scaLe  store  center  of  gravity 
coordinates  in  wind  axes,  ft 


ANU(l),  PSI(l),  Initial  values  of  angular  displacement  about  the  store 
OMEGA(l)  body  axes  in  pitch,  yaw,  and  roll,  respectively, 

radians /sec 


CF(  1,  1) . 

CF(1,  6) 

CA1 

CLA 

CMA 


Initial  values  of  aerodynamic  force  coefficients  in  the 
sequence  axial  force,  side  force,  normal  force, 
pitching  moment,  yawing  moment,  and  rolling  moment 

Coefficient  used  to  correct  the  axial-force  coefficient 
in  the  predictor-corrector  numerical  integration 
scheme 

Coefficient  used  to  correct  the  normal-  and  side- 
force  coefficients  in  the  predictor-corrector  numeri¬ 
cal  integration  scheme 

Coefficient  used  to  correct  the  pitching-  and  yawing- 
moment  coefficients  in  the  predictor-corrector 
numerical  integration  scheme 


The  following  are  input  data  for  the  optional  version  of  the  third 
job  step  of  Program  C,  in  which  force  coefficients,  but  not  trajec¬ 
tories,  are  computed. 
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IS!  CASE 


NREAD 


Number  of  vortex-lattice  cases  to  be  computed  with 
each  transferal  of  data  from  data  set  reference  Num¬ 
ber  21  into  the  core 

Number  of  times  data  set  reference  Number  21  is  read 


X,  Y,  Z 


ANU,  PSI, 
OMEGA 


Coordinates  of  the  point  which  the  store  body  axes 
are  rotated  about  with  respect  to  the  wind  axes,  in 
the  parent  aircraft  reference  system,  ft 

Angular  displacement  about  the  store  body  axes  in 
pitch,  yaw,  and  roll,  respectively,  radians /sec 


The  follow 

ICF  =  1 
=  2 

BSPAN 

CBAR 


ing  input  data  are  defined  by  arithmetic  expressions: 

Laminar  skin  friction  assumed 
Turbulent  skin  friction  assumed 

Full-scale  store  lateral  reference  length,  ft 

Full-scale  store  longitudinal  reference  length. 


ft 


Dimensions  of  Arrays 

Whenever  the  number  195  appears  as  a  dimension  in  the  program 
listing,  this  is  the  number  of  points  at  which  velocity  is  calculated  when 
ISOLVE  =  3  (NUT(3)).  The  arithmetic  expression  for  NUT(3)  is  given 
in  the  second  job  step  of  Program  C. 

NCASE  (which  has  the  value  5  in  the  sample  program  listing)  is 
a  dimension  for  the  following  variables:  CDTOT,  CYTOT,  CLTOT, 
CMTOT,  CNTOT,  CRTOT,  BDOTV,  GAMMA V,  HGAMMA,  VX,  VY, 
and  VZ. 

In  SUBROUTINE  ACOEFF  the  elements  of  the  vorticity  distri¬ 
bution  in  the  GAMMAV  array  are  reordered  to  form  the  GAMMA  array. 
The  maximum  values  of  the  three  subscripts  of  GAMMA  are,  respec¬ 
tively,  (1)  the  maximum  value  of  NCHORD(IW),  (2)  the  maximum  value 
of  NSPAN(IW)  +  1,  and  (3)  NWP.  In  this  same  subroutine  the  dimen¬ 
sions  of  the  variables  which  are  the  spanwise  distributions  of  force 
coefficients  on  vortex  segments  are,  respectively,  (1)  the  maximum 
value  of  NCHORD(IW)  and  (2)  the  maximum  value  of  NSPAN(IW)-1.  The 
dimensions  of  the  variables  which  represent  chordwise  distributions 
are,  respectively,  (1)  the  maximum  value  of  NCHORD(IW)-!  and  (2) 
the  maximum  value  of  NSPAN(IW). 
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PROGRAM  C  -  3RD  JOfl  STEP 
THIS  PROGRAM  INTEGRATES  THF  SIX 
EQUATIONS  OF  MOTION  USING  A  4TH 
01  MENS  ION 

l  LI4)  t  DT  1331 

A  I  3  .3  )  t 

WGTTAO)  t  HGT8A  I  3  > 

C  F  113,6)  ,  DCFOA  16,2) 

PITCH  133)  t  YAW  1331 

A  INC  104  331  *  AINCP  1331 

C  A | 3  3 )  .CYI33I  «C  N I  33 ) 

COTDTIS)  ,CYT0TI5>  ,CLT0T|5) 
-  -  ,V00TI4)  - 

,yoot 1 4  > 

,VI 33) 

•  Y| 33  I 


nFGREE-OF-FRFFMOM 
ORDER  RUNGE— KHTT  A  METHOD 


*  PITCHPI33) 


YAWP  133) 


nnriTiA) 
XOOTI A) 
III  33  ) 

X  133) 


•wnnri A) 

t  ZDOT | A  ) 
»  M | 33) 

U  33) 


,CPITCH|33l,CYAW|33),CRnLLl  33) 
tCMTOT I  5  I  tCNTOTI 5 )  •CNTOTIII 
t  POOTI A )  vOOnTIA)  *  ROOT I  A  I 
,ANUD0TI 4|,PSlOUT|4l,nMGniH I  A) 


«  *1531  HI33I  • 

CALL  ERHS^T  171)9,10,5,2) 

CALL  ERRSET  1751,10, 5*2) 

CALL  ERRSET  1257,10.5,2) 

CAL«  FRRSFT  1253,1095,2) 
altTtddf  -  5000. 

TFMP  a  41.2  DEG  F 

A  SOUND  *  1097.5 

FJFCTOR  force  *  1000. 

EjFCTOR  STROKE  -  .2552 

XCG  FULL  SCALE  *  2. 7A 

INPUTS  SUBJECT  TO  FREQUENT  CHANGE 
.  ,0MFGA|1),  CFIltJF) 


,  P  I  3  3  ) 

•  ANIK  33) 


,01 33) 
,PS1 1  33 ) 


,RI 33. 

, OMEGA  I  33) 


1)1  V  CHK 
NEG  SORT 
RIG  EXPN 
NEG  LGIO 


Oil  ),. 

LN 
NK 

NM 

NC  ASF 
INCRFM 
AMACH 
DTI  l ) 

Ofl  500  M  =  |  , NM 
500  DT|M)  3  DTI 1 ) 


33 
17 

?*N<  -  l 
5 

INCASF-l)  /  7 
n 

l  /  A. 


THE  FOLLOWING  STATFMENTS  are  PECULIAR  TO  THE  M-U7  BOMB 
scalf  «  20. 

UGT  T  A  1 1 D. 

HGTTA|2)3  o. 

WGT  T  A | 3 ) »  750. 

AMAAR  =  WGTTAI3)  /  32.2 
1.395 

-  1.333 

«  7.325 

*  A. 

=  30. 

3  30. 

-  O, 


s 

R.SPAN 

C«AR 

A  |  X 

A1Y 

AIZ 

AIKZ 


RMO  *  .001978 

ABOUND  «  1097.5 

III  3  AMACH  *  ASOUNO 

THRUST  AND  EJECTOR  FORCES 

F  X  l  =  0. 

FX2  «  0. 

FZl  -  0, 

FZ?  *  0, 

ALXl  »  n. 

AL  X  2  *  0. 

DAMPING  COEFFICIENTS 
CLP  «  0. 

CMO  «  -2.319 

CNR  3  -2.3)9 

XCAR1G  *  SCALE  •  1-12. 99-1.644)  /  12. 

YCAR1G  a  SCALE  •  1-4.66)  /  12. 

ZCARIG  *  SCALE  •  l.l  /  12. 

GO  TO  600 
A 00  CONTINUE 

initial  conditions  FOR  BOMB  release 

Pin  =  n. 

oil)  «  n. 

Rll)  *  0. 

IF  0MEGA1 1 1-3.1*16/4.  BOTH  ANIJIl )  ANO  PSI  III  *NE. 


.7  •  3.1*16  /  IBO. 


3.1416  /  4. 

0. 


ANIJIl) 
PSIll)  « 
omega  ii>3 
OMEGA  II)* 
GO  TO  620 


VERTICAL  EJECTION  OF  BOMB 
IJIl)  «  0. 

V(l)  3  o. 

Wll)  3  9. 

XII)  «  XCARIG 

Yll>  «  YCAR1G 

Zll)  *  ZCARIG  4  .2552 

GO  TO  650 


620  CONTINUE 


*5  OEGREE 

FJECTIflft 

HI  l ) 

s 

n._ 

VI  l) 

3 

-8,79 

Mil) 

3 

8.79 

XII) 

3 

XCARIG 

Y  1  1  ) 

3 

YCAR1G 

Zll) 

3 

ZCARIG 

C  F 1 1 ,1  ) 

3 

•  1346 

CF|l,2) 

a 

.0485 

CPI  1*5) 

3 

•5511 

C  F 1 1 ,4  ) 

3 

-,0008 

C  F  1 1 , 5  ) 

B 

-.0)28 

CFIl,6)  - 
GO  TO  650 

,0 

/  SORT I  2.  ) 


.2552  /  SORT  I  2. 
.2552  /  SORT i  2. 


INITIAL  CC1N0 J  T IONS  FOR  CONTINUATION  OF  TRAJECTORY  CALCULATIONS 

Ul l  ),,..  ,0M6GA| l),  CFll.JF) 

650  CONTINUE 

STATIC  STABILITY  DERIVATIVES 
CLA  -  OICD/OIANin 
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C  C«A 

C  CYP 

C  CNP 

1 F  {  ... _  . 

IF  I  ARSI AMACH-0.85) 
CL*  a  .0636 


810 

R20 


0ICM)/0UNU> 

0(CY  WUtPSI I 
OICNI/OIPSI ) 

ABSI AMACH-0.5  )  -  .1  >  R20,  820* 

. .  "  *“  .1  )  8  30.  830. 

_  1  BO.  /  3.1*16 

“.01 69  ■  140.  /  3.1*16 


810 

8*0 


CM* 

CM 

GO  TO  850 


a  I  1 .13*-. 06*1/10. a*2  >  •  | 180./3.1*16)**2 


CL*  •  1.39/5.7)  *  180.  /  3.1*16 

CM*  a  -1,1/5.71  •  180.  /  3.1*16 

C*1  ■  I  I.089-. 0661/5. 7**2  I  •  < 


C*1 

GO  TO  850 

8*0  WR  HE  16 .81 22  ) 
- *Tl  * 


1A0./3. 1*16 J**2 


MACH  NO.  NOT  PROPFRlY  INPUT  CAUSING  PROGRAMMED  STOP') 


8122  FORMAT 
STOP 

C  THE  AMOVE  STATEMENTS  ARE  PECULIAR  TO  THE  M-117  BOMB 


850  CYP 
CNP 


SIDE  FORCF 
RCFDA  <2.1 > 
nCFDA(2.2) 
IFT 

CF0AC3.1 ) 
CFO* 13.2) 


OCP-.  _ 

PITCH 
OCFOAI*.! 1 
OCFDAI *.21 
YAM 

OCFDAI 5,1  ) 
OCF0A15.2) 
ROLL 

nCFOAIA.l ) 

OCFOA (6*2) 


CLA 

CM* 


0. 

CYP 


CL* 

0. 


CM* 

n. 


n. 

CNP 


o. 

o. 


KMlal.NR.  INCREM 
■  2*  KMl 

a  ?a{KNlMNCRFM) 
ITCFaf,? 

KM2-1. INCREM 
KM2  “  1 


c2210 

2220 


00  6300 

Si 

on  6300 
00  6100  ..  _ 

K  a  KMl  ♦  K 
M  ■  2  *K  —  1 

GO  TQI  2500.  2210).  ITCF 
1 F 1  KM2-1  )  2220.  2220,  2500 


Scarf 

l»lJ 

IJ 

X 

cnTOT 


VORLATI  LM,  K.  M. 


V 

Y 

CYTOT 


SCALE 

CLTOT 


P 

ANU 

CMTOT 


cnIot 


R 

OMEGA 

CRTOT 


nn  2*10  ICASEal.NCASE 


M-l ♦ ICASE 
C0TDTI1CASE) 
CYTOTllCASE) 
CLTOTUCASE) 
CMTOT I ICASE) 
CNTOT I ICASE) 
CRTOT I ICASE  > 


CFIMM.l) 

CF|MM,?> 

£F I  MM. 3 ) 

CFIMM.4) 

CFIMM.5) 

CFIMM.6) 

CONTINUE 

MR1TE16.8220)  * 

FORMAT!//  *  2N0  ESTIMATE  OF  AEROOYNAMIC  COEFFICIENTS  FROM*. 
•  VORTEX-LATTICE  CALCULATIONS  •  /  13X. 

•  CAX1AL  CS106  CNORM  CPlTCH  CYAN  - 

on  8230  MMaMl, 

NR  I Tl 16, 8232) 

FORMAT ( 


8220 


8230 

8232 


2500  CONTINUE 

KRK  a  0 

3000  KRK  •  KRK 

M  a  2*K  - 

I  F  |  K-NK  > 
3110  I F |  KRK-1  ) 


CROLL  M 


CCFiMM.JF),  JF« 

,12.  2K ,  6F 10 • * 


1  j  6  ) 


♦  1 


3120 


3500 


CONT  1NIJE 
111  M  > 

VIM) 

HIM) 

PIM) 

0 1  M  I 
RIM* 

XI  M) 

V  |  M  ) 

2IM) 

ANU I M ) 

PSI 1M) 
OMEGAlMla 

CONTINUE 


1  ♦  LI  KRK) 
3110,  6500. 
3500,  3500, 

■  UI2«K-1)  ♦ 

■  VI2*K-i)  ♦ 

a  WI2*K-1)  ♦ 

■  P I 2*<-l )  ♦ 

*  01 2*K“1 )  ♦ 

-  R I 2*K-l )  ♦ 

a  X 1 2*K“ 1 )  ♦ 

■  VI 2*K“1 I  ♦ 

■  Z I 2*K“1 )  ♦ 

a  ANUI2*K-l) 

■  PSH2aK-i) 
OMEGA! 2*K“1 ) 


6500 

3120 


L  !KRK)  a 
L  I  KRK  )  P 
L I  KRK  )  a 
LIKRK)  a 
L1KRK)  a 
LIKRK)  a 
LIKRK)  a 
LIKRK)  a 
LIKRK)  a 
a  LIKRK) 

♦  LIKRK) 

♦  LIKRK) 


U00TIKRK-1 
VnOT IKRK-l 
WODTIKRK-l 
POOTI KRK-1 
OOOTIKRK-1 
ROOT I KRK— 1 
xnOTIKRK-1 
YOOT IKRK-l 
200TIKRK-I 
a  ANIinnTI  KRK-1 1 
a  PSinnTlKRK-1 ) 
a  OMOnOT!  KRK-1) 


OTIM-1 1 
OTIM-I I 
OTIM-I ) 
DTIM-l | 
OTIM-ll 
OTIM-1 | 
DTIM-l  | 
OTIN-I ) 
OTIM-1) 


OTIM-ll 

OTIM-1) 

OTIM-1) 


*150 


PITCHIM) 

YAMIM) 

A  INC  101 M | 


ANU I M ) 
PSIIM) 
ARC OS  I 


GO  TO  I  *100.  *200). 
ITCF  -  1 

Ml  a  2*<M1  -  1 

CFIM.ll  a  CFJMI.l) 

00  *150  jFa2,6 
CFIM.JF)  a  CFIM1.JF) 

r.n  to  *300 


♦  ATAN2I  W(M).UlalllM)  ) 

-  ATAN2I  VIM),  U1  ♦!!!  M  |  | 
^SIPITCHIM))  a  COSIYAUIM)) 


-  C*1  •  I A  INC  ID! M |aa2  -  AINCIOI Ml )**2 I 


OCFOAIJF.II 
OCFDAI JF, 2) 


|PITCH|M)-P1TCH|M1I | 
I YANt  M )  -YANIM1)  | 


ITCF 
CF  I M ,  1 ) 

nn  *250 


■  2 

a  CFIM.l) 
JF-2,6 


CA1  •  I AINCIOI M)*a2  -  AINCP|M)aa2) 
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CF (M, JF) 
CONTINUE 

CAIM) 

CtlM) 

CNIM) 

CP]TCH{M) 

CYAH(M) 

CRHLL(M) 


CFIM, JF) 


■  CF|N*1I 

*  C F ] M( 2 ) 
=  CFCMf3) 

*  CFfM.4) 
=  CFIM.5) 
=  CF I M. 6 ) 


ocfoai  jF.n 

ncFn*UF,2i 


iprTCMiM)-PiTCMp(Mn 
I YAW|M)  -YAwP|M|  ) 


PSI 


OMEGA  ) 


CALL  AXES  I  LM,  m.  At  ANII 
nn  4500  N=lt3 

WGTRA (  N )  -  AtN.  1  MWGTTA  <1 I  ♦  k ( N, 2 ) •HGTTA < ? )  +  A( N* 3 ) *WGTTA I 3 ) 

THE  FORMULAS  FOR  The  OER (VAT  IVES  XOOT( KRK ROOTlKRR | 

ARE  GIVEN  IN  AF0C-TR-6R-2O0,  BY  CHRI STOPHFR  ANO  CARL TUN 


XOOTIKRK) 
YOOT I KRK ) 
ZnOTCKRKI  - 

cnspsi  » 

SINPSI 
COSO MG 
S1N0MG  ■ 

ANUDOT  I  KRK  ) 
RSI OOT I  KRK  ) 
OMGODTIKRK J 

UTOTAL 


A(ltl)  •  U(M) 
A<1,2)  •  411 N) 
At  1 1  3  )  •  II I  HI 

cost  PS I I M )  | 

S IN  t  PS  I ( H  J  ) 
COS!  DMFGAIM) 
SINt  OMFGAIM) 
»  (  0(H) 

RIM) 


Al 2* l )  • 

mill : 


VC  M  | 
V(M| 
VIM) 


*  A(  3?  1 1 

iillll 


*  HIM) 

Sint 


) 

) 

COSOHG 

cnsriHG 


RIM) 
01  M ) 


PIN)  -  ANlinOTIKRK)  * 
SORT!  (U1<aX00T(KRKI)«*2  ♦ 


5100 


OS 

FX 

FY 

FZ 

TL 

TM 

TN 

tKh 

TN 

IIOOTIKRK) 

VOOT(KRK) 

MOOT Ikrk ) 

PNOOT 

PNOOT 

RNOOT 

RNOOT 

POOTCKRX) 

QOOTIKRK) 

OOOT(KRK) 
ROOT IKRK  ) 

ROOT  I KRK) 
GO  TOC  3000* 
CONTINUE 
U(M) 


-  RHO  •  UTDTAL**2  / 


WGTBAI1) 
WGTRAf ?) 
WGTR A( 3 ) 


im 


IM) 

H|M) 


•  SINOMG  I 

•  S  T  NO MG 
SINPSI 

YOOT ( KRK )**2 
ZOOTl KRK )**2 


/  COSPSI 


CY AW t  M I 


OS 

OS 

OS 

FX 

FY 

TL 


*  s 


•  CAIN)  - 

•  CV(M) 

•  CN(M)  ♦ 
BSPAN*  PIN) 
CRAR  •  01 M) 
CRAR  •  RIM) 


FX1 


F21 
/  ' 
/ 


FZ1  *  ALX1 


OS 

*  os  •  s 
-  OS  *  s 
♦  CLP  • 

CMC  A 
CNR  • 

BSPAN*  TL 

*  S  *  CRAR  •  TM 

*  S  •  CBAR  •  TN 
/  AMR AR  ♦  R|M) 

/  AMRAR  ♦  P  ( M ) 

/  AMRAR  ♦  0|M) 

_  -  01 M )*R I M) *(  A 12 

-  PNOOT  /  AIX 

■  TN  -  0(M)*R|H)*A|X2  - 

=  RNOOT  /  A I Z 
=  I  PNOOT  ♦  RNOOT  •  AIXZ  /  A|X  ) 

/II.-  A|XZ**2  /  I A IX*A I Z  ) 

*  TM  -  I  p( M )**2— R  l M )-**2  )  •  AIXZ 

-  P(H)  •  RIM)  *  I  AIX-AIZ  ) 

-  ODOT IKRK)  /  A  (  V 

=  TN  ♦  |  POOT  CKRK)-0|M)*RIMI  )  •  A|XZ 

-  P|M)  *  OIM)  •  I  A) Y— A 1 X  I 

■  ROOT  I KRK )  /  A I Z 
3000*  3000.  5100).  KRK 


FXZ 


FZ  2 
I  2.*l)T0TAL) 
I2.*1IT0TAU 
C2.*l)T0TAL) 

-  FZ2  •  ALX2 


VIM) 
Ml  M) 
UCM) 
‘-AIY 


OIM)  •  MIM) 

DIM)  *  U(M) 

PIM)  •  VIM) 

P| M)*OI M )*AI X  2 


PI M) *01  Ml* |  AIY-AIX  ) 


■  UI2*K-1) 
=  VI 2*K— 1 I 


*  lUDOTm*2.*UOOTI2l*2.*UOOT(3l**UOnTI4 

•  OT(M-l)  /  3. 

♦  I VOOT  1 1 J  ♦2.*VD0T  121+2.* VOOT I  3)  ♦VOOT! 4 

•  DTIM-1>  /  3. 

-  WI2*K-1)  ^IWOOTI  I>*2.*WD0T|2l*2.*W00TC3l*W0nTI4 

=  PI 2*K— 1 )  ♦* I^OOtTi )*2.*P00Tl 2)+2.*PD0TC3 )*P00T 14 

•  DTIM-l I  /  3. 

*  01 2*K— 1 )  +  l OOOT I  1 )+2. *000T I  2 )+2«*000T| 3 1*000 T 1 4 

•  OT(M-l)  /  3. 

-  RI2*K-1)  ♦  ( ROOT ( 1 )*2.*R0OT I  2) *2 ••ROOT I  3 ) ♦ROOT I 4 

•  DTIM-l)  /  3. 

■  XI 2*K-1 )  ♦  I XOOT 1 1  )+2.*XD0T( 2  )+2«*XOOTC  3 l+XDOT 1 4 

•  OTIM-l )  /  3. 

■  Y 1 2*K— | )  ♦  | YOOT 1 1 )+2. * YOOT | 2)+2.*YOOTC3)+YOOT|4 

•  OTIK-l)  /  3. 

-  ZI2*K-1)  ♦  I ZOOT 1 1 )*2.*Z00T I  2 )+2.*Z00T I  3 ) 4  200T 1 4 

•  OTIM-l)  /  3. 

■  ANUI2*K-1)  ♦  I  ANUO0TI1 )*2,*ANUOOTC 2  I 

♦  2.4ANU00T  |  3 )  ♦ANIJOOT  |  4 1 

■  PS  I I2*K-1 )  ♦  I  PS10DTI1)+2.*PS)00T(2) 

♦2.*PS  t OOT I  3 1 ♦PSI OOT I 4 ) 

I  OMGOOTI 1)42.*Om6dOTI2) 

♦2.*0MG00TI 3 )+OMGDOT 1 4 )  )  *0TIM-l)/3. 


VIM) 

MIM) 

PIN) 

OIM) 

RIM) 


VIM) 
ZIM) 
ANUCM) 
PSI I M) 


OMEGA  CM)-  OMEGA  I 2*K— 1 ) 


I  *0TCM-l)/3« 
I  *0T|M-l)/3. 


5510 

5520 


5550 


IFI  ITCF-1  )  5510*  5510*  6100 
IF  I  M-M2  )  6100*  5520*  5520 
00  5550  M-M1,M2 

PITCHPIM)  -  PITCHIM) 

YAWP  CM )  x  YAWIM) 

AINCPIM)  x  AINCIOCM) 

_  CONTINUE 

6100  CONTINUE 

If  I  KMI-INK-INCREM)  )  R622*  8624*  6200 

8622  MI  =  Ml 

GO  TO  8630 
8624  Ml  =  l 
B6  30  WRITE  1 6 *8632) 

8632  FORMAT!//  ■  AERODYNAMIC  COEFFICIENTS  FROM  TAYLOR  SERIES*  /  3X* 

1  *  I  TCP  M  CAXIAL  CSIOE  CNORM  CPI  TCH  C  YAW  CRO 

2LL  '  ) 

OD  8640  M«M 1  *  M2 

8640  WR I TE 1 6*8642 )  MCF*  M*  CAIN)*  CYIM)*  CN(M)* 

1  CPfTCHIH)*  C YAW (Ml*  CROLLIM) 

8642  FORMAT  I  215*  6F10.4  ) 

WR.ITEI6.B646) 

8646  FORMAT  I //  •  U*V,W.P*0,R*ANU* PSI.OMEGA  ARE  REFERREO  TO  800Y  AXES. 

1  UNITS  ARE  FEET*  SECONDS*  DEGREES.  *) 

WRITEI6*8652) 


8652  FORMAT!  3X, 

1  3X,  *  UCM) 

2  4X.  '  X I M ) 

3  ) 

00  8660 
POEG 
ODEG 
ROEG 
ANllOEG 
PSIOEG 
0 MG DEG 

R660  WR ITE I  6*8662  ) 

1 


•  1TCF  M 

VIM) 


WIM) 

ZIM) 


PIN) 

ANUIM) 


OIM) 
PSI CM) 


RIM)  *. 
OMEGA! M)* 


M-HI tH2 
■  PIM) 

=  OIM) 
x  R|M) 
x  ANUIM) 

-  PSIIM) 
OMEGA! M ) 
I TCF,  M* 


•  180.  /  3.1416 

*  180.  /  3.1416 

•  180,  /  3.1416 

*  180.  /  3.1416 

•  180.  /  3.1416 

*  180.  /  3.1416 

U I M ) *  VIM)*  WIN)*  POEG*  OOEG*  ROEG* 

X! M) *  YIN),  ZIM)*  ANUOEG*  PSIOEG*  OMGOEG 
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c 

c 

c 


c 

c 

c 


6662  FORMAT  1215, 

6200  CONTINUE 
6300  CONTINUE 
6500  CONTINUE 


1 2F1D,3 


NR  I TE 1 6 .6720  > 
6720  FORMAT I  ///  * 

1  /  • 
2  / 


3  OIDEG/S 


4DEG>  OMEGAIDEG)’  M 


TRAJECTORY  VELOCITY  ANO  DISPLACEMENT  IN  HIND  AXES  » 
UNITS  ARE  FEET,  SECONDS,  DEG  « 

N%  3X  •  •  UIFT/SEC)  VI  FT/SEC  )  HIFT/SEC)  PI  DEG/S  I 
X I  r T )  Y  CFT  >  Z  f  FT )  . .  . 


RIDEG/Sl 


ANU (DEG )  PS1I 


DO  6600 

CALL 

UWfNO 

VWlND 

HHINO 

PH  (NO 
OH  (NO 
RHINO 


■1 , 

AXES  I  LM,  M, 
a  All, 11  *  UIH) 

-  A  (  1 , 2  >  •  U I M I 
■  All, 3)  *  UIH) 

-  A ( 1 , 1 )  *  PIN) 

*  All, 21  *  PIM) 

-  All, 3)  •  PIM) 


A,  ANU  •  PS  I 

A  [  2, 1  >  •  VltO 
A  f  2 , Z  >  *  VI M I 
A| 2 , 3 >  •  HIM) 

:  gist  4 


A I  3  «  1  ) 
A( 3,2 ) 
AO, 3) 


OMEGA  ) 

*  HIM) 

*  HIM) 

*  HIM) 


♦  A( 2,3  >  *  01 H )  ♦ 


Al 3,2) 
A I  3,3  > 


RIM) 

RIM) 


OMEGAH  ®A (1,1)  *  OMEGA (Ml 
ANUH  -All, 2)  •  OMEGA ( M ) 
PS  1H  ( 1  ,3)  •  OMEGA  | HI 


A(  2,  1 }  *  ANU I  Ml 
Al 2, 2  >  *  ANUIM) 
A I  2, 3  )  •  ANUIM) 


:  «  isi 

Al  3, 3)  *  PS  (M) 


PH1ND 

DHlNO 

RHINO 

ANIJH 

PSIH 

OmEgaw 


HR  I TE 16 ,8730  > 


PH  |ND 
OH  1  NO 
RHINO 
ANUH 
PSIH  •  lflO 
OMEGAH*  1  BO 


140, 
1  BO, 
1B0. 
180, 


3,1416 

3,1416 


8730  FORMAT! 
6600  CONTINUE 
STOP 
END 


15, 


3,1416 
3,1416 
3,1416 
3,1416 

UHINO,  VH I  NO,  HH I NO,  PHINO,  QHIND.  RHINO, 
X  f  M ) ,  YIMJ,  2  I M  > ,  ANUH,  PSIH,  OMEGAH 
12F10.3  > 
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PROGRAM  C  -  3RD  JOR  STFP 

THIS  IS  A M  ALTERNATE  VERSION  I1F  THE  MAIN  PROGRAM  OF  THIS  5TFP  IN 
WHICH  TRAJFCtnRfES  ARE  NOT  COMPUTED. 

THIS  PROGRAM  COMPUTES  AERODYNAMIC  FORCES  ON  A  STATIONARY  -M.ANFORM 
WHOSE  ORIENTATION  IN  SPACE  IS  SPECIFIED 
0 1  MENS  I  ON 


1  U  151.  V  IS),  M  IS). 

2  X  IS).  Y  151,  l  IS). 

3  COTOTIS),  CYTOTIS).  CLTOTI5), 

DIMENSION  A | 3.3 ) 

7100  FORMAT!  1615  ) 

7200  FORMAT  I  HElO.O  ) 

LM  -  S 

K  *  l 

M  >  l 

C  INPUT  DUMMY  VALUES  fur  Ul  ANO  SCALE 

111  =1. 

SCALP  ■  1. 

READ  15. 71 00)  NCASE.  NREAD 

DO  H>0  MH-l, NCASE 


I  SI. 

151, 


0 

PSfn 


CmVotiSU  CNtOTisiJ  CRTOfisi 


15)* 

I  SI  , 


R  ISI. 
OMEGA  I SI. 


Ill  MM  ) 
VI  MM  ) 
HI  MM  ) 
PIMM) 
O(MM) 
100  R(MMI 

1<J 


0. 

0. 

0. 

0. 


00  200  INEAQal . NRE AO 

RFA0IS.720O)  | X  I  MM ) .  MM-l,NCASE1 

REAO|S.72nO)  |  Y  I  MM)  .  MMM.NCASEI 

REAf)  |  S  .  7200  )  I  Z  I  MM )  .  MW-l.NCASEI 

READ!  S  ,72001  IAN01MM),  MM-l.NCASEl 

READ  I S  .7200 )  IPSIIMM),  MM-l.NCASEI 

HEA0I5. 72001  I  OMEGA  I  MM ) .  MM-l.NCASEI 

CAL'.  VORLATI  LM,  <,  M. 

NCASE  • 


1 

1  IKJ 
1  ,  III 

A  II 
R  X 
C  COTOT 
1C  F 
RSPAN 
CRAR 
on  hnoo 
XOR  |  G 
YORIG 
20RIG 
PITCH 
YAW 
ROLL 
CALL 
Co 

i 

CR 

lCM 

CN 

l 

CR 

CM 

CN 


♦  SCALE 
.V  *  w 

.  Y  •  Z 

|  CVTOT  ,  CLTOT 

■  .R  /  12. 

-  A.3NS  /  12. 

MM- l .NCASE 

-  X ( MM )  •  |2. 

-  YIMMI  •  |2. 

-  2  I  MM)  *  12. 

-  ANuiMM)  «  mo. 

-  psiimm)  •  mo. 

■  OM=GA«MM)  r  - 
AXES  !  LM 


P 

ANM 

CMTOT 


cnIot 


:  m 


/  3. 1A1A 
/  3.  1*14 
mo.  /  3 . 141 A 

MM.  A.  A  Nil 

ofoTir 


■  A | l , l )  *  COtOTIMM) 
♦  AI3.D  •  CLTOTIMMI 
*  -  Al 1,2)  •  COTOTIMM) 

-  A  |  3, 2  >  A  C . . 

-  All, 3)  •  C 


•  PSI  •  OMFGA  I 
AI2.ll  •  CYTOTIMMI 


■  CN 


_  sLTOT|MM) 

All, 3)  *  COTOTIMM) 

A I  3, 3 )  •CLTOTIMMI 
Al l,l)MRSPAN*CRTOT(MM) 
A| 3'1)*CRAR*CNT0TI MM) 
A| l ,2l *RSPAN*C RTOTI MM ) 
A| 3.2 l*C  RAR*CNTOT I  MM ) 
All ,3l*RSRAN*CRTnT<MM) 
A I  3,3) *C  *  A  R  •CNTCIT ( MM ) 

/  - 

a 


♦  A 12, 2  I  •  CYTOTIMMI 


-  A  I  2 • 3 1  •  CYTOTIMMI 

♦  A|2.ll*CRAR*CMT0TIN«) 

♦  AI2.2l*CRAR*CMTf)T|MM| 

♦  Al 2, 3I*CRAR*CMTDT| MM| 


,  Ji  _ 

SPAN 

RAH 

MAR 


MRITFj6,R720l  .MM, 


- . .  XORIG,  YORIG.  ZORIG.  PITCH.  YAW.  ROLL 

R720  FORMAtl//  •  |  RUN-  •  ,  1 2.  2X.  •  Xf)R  I  ftl  INI  -  * .  Fht  2,  2X, 

1  •  YflRIGI  1N)-*.F6,2.  ?X,  •  Z0R1GI  IN)  -  *  ,F6.  2,  2X, 

2  •  PITCH! DEG)-* ,F6.1,  2X,  •  Y Aw( DEG )- • ,F6. I .  2X,  •  ROLL! DFGl ■ 1 , 

3  FA. I  ) 

r.o  toi  n n 20 •  nn30).  icf 

HR20  WR1TFI A.MR22) 

.  FORCE  COEFFICIENTS  FROM  LAMINAR  SKIN  FRICTION 


RR22  FORMAT!  15X, 
IAS SUMPTION  *1 
GO  TO  RM40 
**30  MR1TF I 6.RR32 ) 
0*32  FORMAT!/  ISX, 
lASSUMPT |0N  •! 
8 RAO  WRITE  1 6, **42 I 
**42  FORMAT!  ISX. 
I  /  ISX 


•  FORCE  COFFFICIENTS  FROM  TtlRRHLFNT  SK|N  FRICTION 

MM.  CO.  CY.  CL.  CR,  CM,  CN 

•  FORCE  COFFFICIENTS  IN  WIND  AXES  SYSTEM  • 

•  COIORAGI  CYISIDP  FORCFI  CLILIFT 


_ i»  *  luii’Kiti.f  i  t  < )  i  ii**  riwiM  i,L!L. 

2  ROLL )  CH(PITCH)  CNIYAW)  '  /  •  |  RIJN- • .  12.  6F1S.5 

llTF(A.PRS2)  MM.  COTOTIMM),  CYTOTIMMI,  CLTOT I  MM), 


WRl 


COTOTIMM),  CYTOTIMMI,  CLTOT! MH). 

CRTOTIMM).  CMTOT  f  MM) .  CNTOTIMMI 
FORCE  COFFFICIFNTS  IN  RODY  AXFS  SYSTFM  • 

-  -  C  NOR  M 

•12,  AF1S.S 


RR52  FORMAT  I  ISX,  __  ,  _ . 

1  /  ISX.  •  CAXIAL  csioe 

2LL  CPITCH  CYAW  •  /  ■  | RUN 

RNOO  CONTINUE 
200  CONTINUE 
STOP 
END 


CRO 

I 
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•  scale  • 

VCG  »  HCG  , 

Y  t  Z  9 

CYTOT  ♦  CLTHT  , 

/  NWP  9 

.  NS PAN  (3)  9 

Nil  S  (39*1  9 

-  ^,5,3), 


XNET  124, 


P  9 

ANU  9 

CMTOT  9 
NIWP 

NSCORO( 3  I 
NVEL  (3,4) 
YNET  (24  ' 


0 

PS1 

CNTtlT 


AKSI  (23,4,3),  ETA_  « 23 *  2:li: 


XFL(lHF(  1, 


l)t 

O), 


SUBROUTINE  VORL AT (  LM,  K,  N, 

A  NCASE  9 

1  1KJ  • 

1  IJ1 

fl  UC(J 

ft  X 

C  CDTOT 

COMMRN/CNET  / 

1  NCMOR0(3) 

2  NUC  (3,4) 

COMMON /CCOORO/ 

1 

I  BDC  (156,3),  AX 

CtlHMON/CVELOC/ 

COMMON/CPRINT/ 

1 

DIMENSION  OF 
DIMENSION 

1  HOTAG  1156,2),  HINV  (156),  H 
DIMENSION 

1  ROOT V  (156,2,5), 

2  GAMHAV (156 ,2,5 ) • 

3  HGAMMA ( 156,2,5), 

4  VX  1195,2,5),  VY  (195,2,5),  VZ 

01  MENS  ION 

1  MT1P(3)  ,  MR00TI3)  , 

2  1VEL(4)  • 

3  XP(1D)  ,  YP(B)  ,  ZP(10I  , 

4  D0MNV(1D,8, 10) ,SI0EV( 10,0, 10 ), VMAG( 10,0,10), 

5  AI3.3)  , 

6  UCr.(LM)  ,  VCGtlM)  ,  WCG(LM)  ,  P(LM1 

XILM)  ,  YILM)  ,  Z(^M)  ,  ANUILM1 


YFLOWF (  1,  11 

_  AY  (  31  .  _ 

l)  124,5,3),  V  124.5,3),  H  124,5,3 
VXNORMf 195,2),  VYN0RM( 195,2 J •  VZNORM( 195,2 
(PRG  , 

IPRVPS,  IPRVEL,  1 PRG AM,  IPRCP  ♦  IPRCF 
GAMMA V  IN  ACDEFF  MUST  AGREF  WITH  GAMMA V  BELOW 


fl 

0MFG4 
CRTOT 

NVOR  ( 3  I 
NUT  (4) 

ZNFT  124,5,3 
Z6TA  (23,4,3 
2FL0WF(  l,  1 
AZ  (  3 

---  -  % 

2 


(1561,  G 


(195,2,51 


(156,3) 


7  COTOT I 5 > ,  CYTOT ( 5 ) ,  CLT0TI5),  CMT0T(51,  CNTOT( 

EQUIVALENCE  (  ROOTY  (1,1,1),  HGAMMA ( 1,1,1)  I 


0(LMI  , 
PSMLM)  , 
1T0T  ( 51 , 


R  (LM  J  . 
OMEGA  I LM) , 
CRTOT ( 5 ) 


7100  FORMAT (  1 ft  I  5  ) 

72D0  FORMAT (  BElO.n  ) 
1  F  I  M— 1  >  - 


4000  RE  AtM  51 ) 

l  AMACH 

2  IHGAHA 

,  1C  F 

3  NWP 

, 

4  NCHORO 

5  NSCORO 

,  NSPAN 

6  MT1P 

,  MROOT 

* 

7  XCG 

,  YCG 

ZCG 

R  XM 

,  ZM  ,  YL 

ZL 

•  XN 

9  S 

,  BSPAN 

CBAR 

A  NSYM 

,  IBC 

A  1VEL 

. 

H  I PRG  , 

n  1X1 

IPRVPS,  IPRVEL, 

,  1X2  ,  ( V 1 

IPRGAM, 

IY2 

.W 

E  XP 

.  YP 

ZP 

F  DOWNY 

.  S1DEV 

VMAG 

RE AH  1 51 ) 

1  NUC 

•  NUS 

NVEL 

2  XNET 

.  YNET 

ZNET 

3  AKSI 

4  BOC 

,  ET a 

ZET* 

t 

REWIND  51 

BETA 

-  SORT (  1 , -AMACH**2 

) 

NVORT 

=  NVOR(NWP) 

4150  CONTINUE 

RE4IH21  > 

HOI  AG 

.'Hi' 


NVOR 
,  NUT 


C 
C 

IK J  ■  1KJ  ♦  1 
N1WP  -  NUP 

no  6900  IS0LVF=1,4 

GO  T0(  51P0,  5 1 1 D,  5110,  5114),  1SDLVE 
5110  1 F I  I VEL ( 1  SOLVE )  )  6900,  6900,  51B0 
5114  ( F  (  I VFL (4  I  )  6900,  6900,  5120 

5120  CONTINUE  , 

C  THE  FOLLOWING  STATEMENTS,  THROUGH  5172,  ARE  USED  TO  COMPUTE  VELOCI 
C  TY  AT  POINTS  OFF  THE  SURFACE  OF  THE  AERODYNAMIC  PLANFORM 

REAO( 5,71001  NIUP 

00  5150  1  W=1 ,N 1 HP 

REAOI 5 ,7100)  NUC  ( I  U  ,4  ) ,  N()S(IW,4) 

NVELC  =  NUC  (  1U  ,4  ) 

NVELS  -  NIIS  (  I U  ,4  ) 

00  7710  1 1=1  , NVELC 

7710  REAO( 5,7200 )  1 XFLOUF ( 1 1 , JJ ) ,  JJ«1,NVELSI 

00  7720  1 1=1, NVELC 

7720  RE A0( 5 ,7200 )  ( YFLOHF ( 1 1 , JJ ) ,  JJ=1,NVELSI 

DO  773D  1 1 =1 ,NVELC 

7730  REAO(  5, 7200)  ( ZFLOUF  (II  ,  J  J)  ,  JJ-UNVELS) 

5150  CONTINUE 
C 

5160  NVEL 11,4)  -  NUC 11,4)  *  NUSI1.4) 

IF (  N1WP-1  )  5172,  5172,  5164 

5164  00  517D  IW=2 ,N 1HP 

5170  NVEL 1 1 W, 4 )  =  NVELIlH-1,4)  ♦  NUC([U,4)  *  NUS(1U,4) 

5172  NUT  I  4 1  =  NVEL( NI HP ,4) 


5180 


NVELT 
DO  5700 


5300 


-  NUT ( ISOLVE 1 
ICASE-I, NCASE 
,  =  2*<-2*lCASE 
=  ANUIMM)  *  BETA 
=  PSl(MM)  ♦  BETA 
AXES  (  LM,  MM.  A, 
=  ANII (MM)  /  BETA 
=  PSl(MM)  /  BETA 
1  5300,  5300,  5400 

1 S YM= 1 »NSYM 

_  1 T=1  ,NVELT 

VXNORMI IT, (SYM)=  -  A(l,l) 
VYNORMI 1T,ISYM)=  -  A|2,l) 
VZNDRM I  1 T , I S YM) =  -  A ( 3  ,  l ) 

GO  TO '5500 
CONTINUE 


MM 
ANU (MM) 
PS1 IMM) 
CALL 
ANU(MM) 
PS  1 1  mm j 
IF (  IRC 
DO  5310 
DO  5310 


PSI 


OMEGA 


XORIG 
Y0R1G 
ZflRlG 
CALL 
LM 

1X1,  1X2,  1Y1 
XR 

DOHNV 

(SOLVE 


X  ( MM ) 
Y( MM ) 
ZIMM) 


*  12. 
BETA  4  12, 
BETA  •  12, 


/  SCALE 
/  SCALE 
/  scale 


FRESTRI  XH,  ZM,  YL,  ZL,  XN,  YN, 


1Y2,  IZ1,  1Z2, 
YP  , 
SCOEV  , 
1 CASE  • 


ZP 

VMAG 

NSYM 
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5700  CONTINUE 


XORIG  ,  YflRl G  ,  ZORIG 

A  , 

MM  ,  U1  *  SCALE 

!JCG  ,  VCG  t  WCG  «  P 

00  5510  ISYM-I.NSYM 

on  5510  IT-1, NVELT 

VX(ITtI$YM,  ICASE  >  -  VXNORMM  T,  ISYM) 
VY  ( IT, I SYM, ICASE)  -  VYNORM! I T, I SYM > 
VZIIT.ISYM, ICASE)  *  V2N0RNM T, I SYM) 


I F |  1 SOLVE -I  >  6100,  6100,  6400 

6100  00  6150  ICASE-l *NC ASE 


00  6150  I S YM=1 ,NSYM 
no  6150  IT-1, NVORT 

BOOTY ( I T, ISYM, ICASE )  ■ 


'  :  Sffilfcli  :  WIWIMitil 

-  R0CIIT.3)  *  V Z I  IT » ISYM, ICASE )  ) 

/  HOI  AG ( IT, ISYM) 


6240  CONTI 
6250  CONTINUE 


GO  TOI  6150,  6140 ) ,  NSYM 
6140  nnCUT,2l  ■  -  B0C(IT,2) 

6150  CONTINUE 

00  6210  ICASE*1,NCASE 

00  6210  I SYM-I , N5YH 

on  6210  IT-I, NVORT 

6210  GAMMAV! IT, ISYM, ICASE >  -  0. 

on  6250  I 5YM= I , NSYM 

00  6250  IT»1, NVORT 

RE ADf21 I  HJNV 

DO  6240  ICASE-l  ,NCASE 
DO  6240  JT»lt NVORT 

GAMMA V ( IT, l, ICASE >  -  GAMMAV I I T, l , I  CASE ) 

1  ♦  HI  MV  (  Jl )  *  800TVUT, ISYM,  ICASE  ) 

GO  TO  I  6230,  6232),  NSYM 

6230  GAMMAVUT. 2, ICASE)  ■  -  GAMMAV  ( I  T,  1,  I  CASE  ) 

Gn  TO  6240 

6232  GAMMAVUT, 2, ICASE)  -  GAMMA V U T, 2, ICASE ) 

I  4  HINV(JT)  *  BOOT VI JT ,3- I SYM, ICASE I 

6240  CONTINUE 
6250  CONTINUE 
C 

I F (  IPRGAM  )  883R,  8838,  8828 

R82B  WR I TF ( 6 , R H 30 )  (ICASE,  I C ASE-I , NC ASE ) 

BR30  FORMAT  ( *  I  *  ,21  X  ,  *  GAMMAVUT,  I  SYM,  ICASE  )  •/  I6X,  5!6X,*  ICASE-*,!!)  > 
nn  RR  34  I SYM-I , NSYM 

no  8834  IT-l  .NVORT 

8834  MR ( TE < 6,8836)  ISYM,  IT,  ( GAMMAV! I T, I SYM, IC ASE ) ,  ICASE-I ,NCASE ) 

R836  FORMAT (  •  ISYM-*, II,  •  IT-*,I3,  BFI4.5  I 

8838  CONTINUE 
C 

IF (  [HGAMA  >  6390,  6390,  6300 

6300  CONTINUE 

MR  I TE ( 6 , flfi 10  >  (ICASE,  I CASE= 1. NCASE ) 

RR10  FORMAT ( • 1 • »21 X , '  BOOTV ( I T , I S YM , I  CASE )  •/  I6X,  5(6X,'  ICASE-SII)  I 
00  R8I4  I §YM« i ,NSYM 
no  BR 14  IT=I ,MVORT 

8B14  MRI TE( 6, 8B1 6 )  ISYM,  IT,  ( BOOTV (I T , I SYM. ICASE I ,  ICASE-l, NCASE) 

&BB16  FORMAT (  •  ISYM-*, II,  *  •  IT- • . 1 3,  8F14.5  I 

OH  6310  ICASE-l, NCASE 

DO  6310  ISYM-I.NSYM 

nn  6310  IT-1, NVORT 

6310  HGAMMACIT, ISYM, ICASE)  •  0. 

nn  6350  I SYM=1 , NS YM 

nn  6350  IT-I, NVORT 

RE  AO  I  21  )  H 

DO  6340  ICASE-l , NCASE 
DO  6340  JT-I, NVORT 

HGAMMA (|T«I, ICASE)  -  HGAMMA ( IT, l, ICASE ) 

I  +  H(JT)  *  GAMMAVUT,  ISYM,  ICASE) 

GO  TOI  6340,  6332),  NSYM 

6332  HGAMMA (IT, 2, ICASE)  -  HGAMMA U T. 2, ICASE ) 

l  ♦  H  (  JT  )  •  GAMMAVUT, 3-I5YM,  ICASE  ( 

6340  CONTINUE 

6350  CONTINUE 
C 

MRI TF 1 6,8820)  (ICASE,  ICASE =1 , NCASE ) 

B820  FORMAT (• 1 *, 21X, *  HGAMMA i I T, IS YM, IC ASE ) • /  16X,  5I6X,*  ICASE-*, II)  ) 
00  RR24  I SYM-I ,NSYM 

00  8024  IT-1, NVORT 

8824  MRITE (6,B826 )  ISYM,  IT,  I HGAMMA! I T , ISYM, ICASE 1 ,  ICASE-l , NCASE ) 

B826  FORMAT  I  •  ISYM-', II,  •  IT-*, 13,  BF14.5  ) 

6390  IF!  IV EL  1 1 )  >  6900,  6900,  6400 

6400  CONTINUE 

00  645D  1SYM=1,NSYM 

00  6450  IT-I, NVELT 

REA0(2I)  G 


•  ISYM-*, II, 


ICASE-l, NCASE) 
8F14.5  ) 


10  ICASE-l, NCASE 

10  I SYM= I ,NS YM 

ia?it,isymIic1Sei02to, 


IT-1, NVORT  ,  „ 

ISYM,  IT,  I HGAMMA! I T , ISYM, ICASE 1 ,  ICASE-l .NCASE ) 
•  ISYM-', II,  •  IT-*,I3,  BF14.5  ) 


00  6450  1SYM=1,NSYM 

00  6450  IT-1, NVELT 

REA0(2I)  G 

IF «  IPRG  )  8930,  8930,  B912 

8912  I F I  IT-I  )  8916,  B9I6,  8914 

8914  IF!  IT-NVELT  )  B930*  8916,  R9I6 

B916  00  R920  N- 1 , 3 

R920  MRITE16,8922)  ISOLVE,  ISYM,  IT,  N,  (G(JT,N),  JT»L.NVORT( 

B922  FORMAT (  •  ISOLVE-*, II,  5X,  *  ISYM=*,Il,  5X.  *  IT-*, 13,  5X, 

I  •  N-  *  ,  1 1 ,  I5X,  •  G(  JT  ,N  )  RE  AO  FROM  UN  1 T  (  2 1  )  •  /  (IH  16F8.3M 

R930  CONTINUE 

00  6440  ICASE-l ,NCASE 

00  6440  JT-I, NVORT 

VX ( I T  ,  I  ,  IC ASE )  -  VX( IT, 1, ICASE) 

I  +  GUT, I)  •  GAMMAVUT,  ISYM,  ICASE) 

VYI IT, I, ICASE)  -  VY( IT, I .ICASE ) 

I  4  G(JT, 2)  «  GAMMAV! JT, ISYM, ICASE) 

VZMTtI, ICASE)  -  VZ (  IT. I  , ICASE)  _  , 

l  •*■  GUT, 3)  *  GAMMAVUT,  I  SYM,  ICASE) 

GO  T0(  6440.  6432),  NSYM 
6432  VX ( IT ,2 , ICASE )  =  VX! IT, 2, IC ASE ) 

1  -  G(JT, I)  *  GAMMAV! JT, 3- I SYM. ICASE ) 

VY< I T ,2, ICASE )  =  VY ( I T ,2 , IC ASE ) 


6440 

6450  CON 


♦  GUT, 2)  *  GAMMAVUT,  3*1  SYM,  ICASE  ) 
VZ! IT, 2, ICASE)  =  VZ! IT, 2, ICASE  ) 

-  GUT, 3)  *  GAMMAVUT,  3-ISYM,  ICASE) 

^ONTINIJE 


no  6R00 
00  6800 


ICASE-l, NCASE 
ISYM-I .NSYM 
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□II  65H0 

1 W=I ,NMP 

NVELC 

-  NIICI  IN,!  SOLVE! 

NVFLS 

-  NIIS(  IN,  ISOLVF  1 

HO  65 AO 

11*1 .NVELC 

00  65MO 

JJ=I ,NVELS 

IFC  IM-l  > 

6562,  6562,  6564 

6562 

IT 

GO  TO  6572 

= 

(  I  I-t  »*NVFLS 

4  JJ 

65  64 

IT 

*  NVELI 1 N-I , I  SOLVE  J  ♦ 

1  1 1 -I )• NVFLS 

4  JJ 

6572 

U ( I I ,JJ,)N  > 

*  V<(I T.ISYM.ICASFI 

VI  |  I  *  J J • 1 M ) 
Hllf.JJ.IW> 
CONTINUE 

-  VYI IT, I SVM.ICASE ) 

-  VZCIT.ISYM.ICASE J 

6S80 

J  F 1  IPAVFL 

)  6694,  6694.  6692 

DC Y (  I SOLVE ,  ICASE,  NSYN* 
*  2*k-24 ICASE 

6692 

6694 

CALL  V6L 

MM 

ISYN  1 

6720 

6730 


ALPHA 

PSIOFG 

PM  I 
CALI 

LM 

IK  J 
MT  IP 
MM 

AETA 

KCG 

S 

GAMMAV 

CPTDT 


ANU(MM) 

=  P  S I C  MM I  • 

=  OMEGA | MM  1 
ACOEFFI  1SDLV6 « 

'  ICF 

,  mroot 

!  ANU 

*  YCG 

•  KSPAN 

•  CYt6t  *  CLTOT 


l«0*  /  3. 1616 
1  AO.  /  3*1616 
•  1  AO*  /  3  *  " 
NCA5E 


-1616 

ICASF 


NSYN 


ISYN 


PS1 

zcr, 

CAAR 


CRTOF 


6AOO, 


6710),  NSYN 
IM=1 ,NIWP 

-  NCHOROf IN) 

=  NSPANHW) 

»  NCHOROf I  M  )— I 
■  NSPAN(tM)  -I 
1*1 ,NNC 
J-1«NNS 


6732 

6736 
6736 
6760 
67  5  0 
6A00  CON 


GO  TO  (  . 
on  6750 
NNC 
NNS 
NVORC 
NVORS 
□0  6720 
1)0  6720 

YNETfl.J.lNl  *  -  YN€T(!.JtlW) 
GO  TO (  6730,  6750,  6750,  67501, 
no  6740  IP«I , NVORC 

00  6760  IQ=l, NVORS 

•5T  A  C  IP  ,  JO,  IN  I  =  -  ETMIP.IQilW) 
IF  I  I M— I  >  6732,  6732,  6734 


I  SOLVE 


GO  TO  6736 
IT 

ROC (IT. 2) 

CONTINUE 

CONTINUE 

ITINUF 


IIP-II4NV0RS  4  IQ 


NVmdM-ll  4  IIP-1)*NV0RS  4  10 
-  HOC  I  I T, 2  I 


6900  CONTINUE 
REM I  NO  21 
RETURN 
END 
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SDBRnilT  INC  FRESTR1  XM,  7  M  *  YL  .  7L.  XN.  YN. 


1  L«  .  . 

1  I xi,  ix?,  m, 

2 

3  nnwNV  , 

4  1 V1LV?  . 

5  XINjf.  , 

hi  , 

7  HM  , 

ft  licr,  ,  vCG 

COMMO^i/CNCT  / 

1  NCMIH0I3)  , 

2  Ml  IC  (3,41  . 

cnnwost/ccnn^n/ 

1 

2 

3  ftllC  (154,3), 
COMinN/CVCLnC/ 

1 

CnMM(1W/r  PKIMT/ 

I 

O I | ON 


1Y2 

YP 

siofv 

ICASE 
Yimir, 

111 

,  w r.r, 

NwP 
NSPAN 
NUS 
XNFT 

AKSI  . 

XPLUwCf  1,  li 

AX  Ml 

l?4.5.3l 


ll It  IZ?. 

■  7P  • 

VMAG  , 

NSVH 

7  OR  I  r,  , 

SCALE 

P  .  O 

M  wp  • 

Nscmnm  . 

NVFL  13.4)  , 

124,5,31.  YNFT  124,5,3), 
(23.4,31,  FTA  (23,4,3), 
YFLflMM  1,  1), 
AY  <)), 

V  I24,S,?), 


) 


13  1 
(  3,4) 


VXNftftPl 145*21,  VYNMII  Ml  195.2), 
i  k»«r. 


NVOH  <  3 )  , 

NIlT  (4 1 

7NFT  124,5,3), 
7C T A  (23,4,3), 
ZFI.MUF(  1,  l), 
A7  (  3) 

W  424,5*3), 
V7MIRH1  195,2) 


IPRVFS,  1PRVFL, 


|  PR  !•  A  M, 


IPKCP 


1  PRTF 


XP110)  ,  Y  P | ft )  ,  7  P  4 1 0  ) 

2  30wnv 1 10,8,1m  ,S!f>Ev4io,ft.in)  ,v*iAf,i  io,8 tin), 

4  A  ( 3  •  3 )  , 

6  HCUIL**)  *  VCGC.H)  ,  WCG I LM I  ,  P('.H)  ,  0 4 1. m i 

5  FOfWNV 1 2  >  •  FSIH6VI2)  *  FV*AG|2)  . 

#»  VPNO-t")24,5,3) 


*41") 


no  soon 
nn  5950 
NVELC 
NVELS 
nn  595fi 
nn  5950 

1 F |  |W-l 
IT 

r, n  in  5504 


I  SYH= 1 ,  NS  YM 
! W=! ,NIwP 

=  NIIC  (  )  w,  1  SOLVE  ) 
■  Ml  IS  1  1 M ,  1  SOL  VF  ) 
I  I  31  •  NVFl.C 
J  J  =  l , NVELS 
)  5502,  5502,  5504 


5504 

IT 

3 

NVFL 1 I W- 1  * ) SOLVF | 

5504 

f.n 

Tm 

5510. 

5520,  5530.  5540), 

55in 

ip 

■ 

1  I 

|0 

= 

JJ 

PX 

■ 

AKSI  4  IP. 10,  IN) 

PY 

■ 

=TA( |P. IQ, lw 1 

P  7 

■ 

ZFTAI |P,10,IWI 

GO 

TO 

554? 

5520 

1 

■ 

1  1 

J 

& 

JJ 

PX 

s 

1  XNFT (  1  ,  J  ,1  W)  ♦ 

PV 

- 

(  YNf T ll,J«|W)  ♦ 

P7 

■ 

1  ZNE  T 1 I • J , 1 w )  ♦ 

nn 

10 

5542 

4 1 » — I ) *NVFLS  ♦  JJ 


♦  4II-1MNVFLS 
1Solv= 


_  1:151 

♦  7NFT1 I, JM, I W 1 


XNFTI  I 
YNETI  I 


J4 
,  J  ♦ 


5530  I 
J 

PX 

PY 

PZ 

00  Tl)  5542 
C 

5540  PX 
PY 

e  '* 

5542  PX 
PY 
PZ 


!  I 

JJ 

I  XNFT(!,J,1M) 
1  YNET11.J.1W) 
I  ZNET 1 1 « J ,  1  M ) 


X-=i.nwF4|  ,JJ) 
YFLOWFIl  ,JJ) 
Z ►LOW F| |  ,JJ) 


♦  XNET1!M,J,1 


YN 

ZNi 


lixii:!: 


j.  m 


px  - 

PY  - 

PZ  - 


GO  TO|  5544 ,  5544),  ISYN 
5544  PY  s  -PV 

554fi  CONT  1NU  = 

XVP  *  441,1)  •  PX  ♦  A12.il 

YVP  —  441,21  •  PX  ♦  4)2,21 

ZVP  =  4(1,31  •  PX  ♦  442,3) 

xvp  »  xvp  ♦  xn-ua 

YVP  »  YVP  ♦  Y0-4  1G 

7 vp  *  zvp  ♦  zn-iir, 

IFf  XVP  -  XPIIXl)  I  5930,  5*10, 
5410  XWT  ■  4  XVP-XPIIX1I  )  t 

IX  a  1X1*1 

f»n  TO  5700 

5420  on  5432  |X*|XI,1X2 

1  F (  XVP  -  XP(IX)  )  5430 ,  5430, 

5630  XWT  a  (  XVP-XPllX-1)  )  / 

(,n  TO  5700 
5632  CONT I N*iF 

Gil  10  5930 


PY 

PY 

PY 


413.1)  •  PZ 

443.2)  •  PZ 
413,31  •  PZ 


5620 

I  XPIIX1MI-X0I1X1) 


5432 

I  XPI IX )-XPf 1 x-l ) 


5700 

5710 


5720 

5730 


5800 

5fiin 


5B20 
5ft  30 


1 F I  YVP  -  YPI1Y1I  )  5930,  5710, 

YWT  =  I  YVP-YP1 1 Y 1  I  )  / 

1  Y  =  I  Y I  ♦  1 

GO  TO  SHOO 

on  5732  1YMYI.IY? 

IF 4  YVP  -  YP1IY)  I  5730,  5730, 
YWT  ■  1  YVP-YP1IY-1)  I  t 

c.n  to  snnn 
continue 
on  to  S93n 


7 VP  -  ZP ( 1 7 1 1 
ZVP- 


1  5930, 

ZPI1ZI) 


5ft  10, 

/ 


5*30, 
)  / 


1 F 1  .  _  _ 

7.w  1  ■  (  ZV 

IZ  ■  I Z !♦  I 

r.n  to  5 von 
no  5B32  I Z-l 2 1 . 1Z2 
I f I  ZVP  -  ZPI1ZI  I  5830, 

7WT  a  I  ZVP-ZPIIZ-l) 

r.n  to  59oo 

CONTINiiF 

r.n  TO  4930 


RFF,  NftS  A**s  55,  P.B32,  25,2,44 
nn  59in  n x =i , 2 

FllilWNV  I  NX  )  =  II.-YWT)  •  l),-ZWT) 

♦  YWT  •  4I.-7WT) 

♦  11. -YWT)  •  7 WT 

♦  YWT  •  ZwT 

*•  S 1 Op V  I  NX ) ■  (1,-YWT)  •  41, -ZWT) 


5720 

1  YPIIV1H  1-YP41Y1 1 


573? 

I  YP) 1Y)-YP1  1Y-1  ) 


5B20 

I  7 PI  I Z l* 1 1-ZP4 121) 


5*32 

I  7PI IZI-7PI IZ-t I 


OOWNVI l X-2*NX , | Y-l , I Z-l ) 
OOWNVI 1 X-2* N X,  I Y  , 17-1  ) 
OOWNVI  1 X-?*NX, 1 Y- 1 , I  7  ) 
OOWNVI 1X-2«NX,  1Y  ,12  ) 
SinFVI IX-?*NX, 1Y-1, 17-1 1 
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1 

* 

YWT 

•  ll.-ZHT) 

• 

S ) DEV! 

X- 2*NX . I Y 

2 

♦ 

H.-YWT) 

*  ZWT 

A 

SIDE V| 

X-2+NX. )Y-1 

3 

♦ 

YWT 

•  ZhT 

* 

S )  f>F  V 1 

X-24NX. 1Y 

FVMAG! NX) 

s 

(l.-YHT) 

■  (1.-7WT) 

« 

VMAG  1 

X-2+NX. IY-1 

1 

YHl 

•  U.-ZMl) 

• 

VMAfi  1 

X-7+NX, 1Y 

2 

♦ 

! 1,-YHTl 

*  ZHT 

• 

VMAG  | 

X— 2+NX , I Y-l 

3 

♦ 

YHT 

*  ZHT 

• 

VMAG  ! 

X-24NX, 1Y 

5910 

CONT  I  Ml  IE 

DCIWNVP 

s 

!  1 

.-XHT)  • 

FOnWNV! 1 ) 

♦ 

XHT  * 

FnOWNV(2) 

SI  OF  VP 

a 

1  \ 

,-XHTl  * 

FSJOEVI 1 ) 

♦ 

XHT  • 

FSIOEVI 2) 

VPMAG 

« 

!  1 

.-XHT)  • 

FVMAG! 1 ) 

♦ 

XHT  * 

FVMAG!  2) 

•  17-1) 

l:IJ 

‘  IZ 
.17 


POSITIVE  OOMNHASH  ANGLE  (EPS)LON) 
POSITIVE  SIOEWASH  angle  )  SIGMA  )  * 


TANI  OOWNVP 
TAN{  SinEVP 

-  1.  /  SORT !  1 

-  TANSIG  *  UP 
TANF°S  *  IIP 

UP  •  VP MAG 
‘ “  ‘  VPMAG 
VP  MAG 


3 , 1 A 16/ I RO. 

3.1416/IRO,  | 

.  ♦  T ANEPS* • 2 


IIPWASH 
INHASH  ON  THE  PORTSIDE 

""  ) 


♦  TANSIG**?  I 


VP 

HP 


-1. 

n. 

o. 


TANEPS 
TANSIG 

IIP 
VP 
HP 
UP 
VP 
HP 

Gn  TO  5940 
5930  IIP 
VP 
HP 

5940  CONTINUE 

VXNORMI IT, I SYM) 

VYNORMl IT , ISYM) 

VZNflHMn  T,  ISVMI  =  A  I  3  v  I  I 
UPS  ■  IICGIMN)  ♦ 

1 

VCS  =  VCGIMMJ  ♦ 

1 

WFS  =  WCG! MM)  - 

I  ♦ . 

VXNURMI  IT  ,ISVM)  =  VXNORMUT,  ISYM)  - 
VYNORM! IT, ISYM)  =  VYNORM! 1T,ISY*J  - 
VZNI1RMI  IT.1SYM1  =  VZNI]RM(  (T.ISYM)  -  _  . 

VPNORMUl.JJt  1H>-  SORT  (  VXNORM!  IT,  1S¥MI**2  ♦  VYNORMl  IT, ISVMI  m2 
1  ♦  VZNORMI IT, ISYM)**2  ) 

5950  CONTINUE 
C 
c 


A  1 1  ,  1  ) 
A|  2,1) 


•  (IP 

•  UP 

•  UP 
0  ( MM ) 
R(MM) 
R  (  MM) 
P(MM) 
01  MM) 
P(MM| 


All.?) 
A(2,2  > 
AO, 2) 

PZ  •  SCALF 
PY  •  SCALE 
PX  *  SCALE 


PZ 

PX 

PY 


SCALE 
SCALE 
SCALF 
IJFS  / 
VFS  / 
WPS  / 


VP 

VP 

VP 

/ 

/ 

/ 

/ 

/ 

/ 

III 

U1 

111 


12. 

I?. 

12. 

12. 

12, 

12. 


All, 3)  •  HP 
A ) 2,3  )  *  HP 
AI3.3)  •  UP 


R23l 

•  ISYM 


1 12* 

■  sii 


ISYM 


I 


1F(  1PRVFS  )  R750 ,  R750 *  R700 

R700  WRITE ! 6, R704 I  iSOLVE,  IC*SE, 

R704  FORMAT!//  ROX  *  lSO'VE-a,Il,  • 

1  *  NSYM»*,I1, 

MR  I  IF ( 6  § R706 I 

R70IS  FORMAT!/  *  MAGNITUDE  OF  FRfFSTRFAM  VELOCITY  VECTOR. 

1  RESULTANT  OF  VXNORM,  vynorm,  VZNORM.  •/ 

2  •  VPNORMUltJJtlH)  M 

no  8740  IW*1 , N I  HP 
MR  I TE !  6 , 870  R )  IH 

-  1W=  MING  PART  -‘,11  1 

I  I W , 1  SOLVE ) 


8708  FORMAT)// 

NVELC 
NVELS  * 

00  *730  Il« 

8730  WRITFI6.R732) 
8732  FORMAT! 

R740  CONTINUE 
cR750  CONTINUE 

8000  CONTTNIIF 


NUC 
NIIS 
1  .NV 


lull  SOLVE) 


I  VPNORM! 1 1 «  J  J  •  I  W  )  ,  JJ*1. NVELS) 
.12,  1  OF  10, 5  ) 


IF  <  I  PR VFS  )  R850,  8850,  R800 

8800  On  RR40  ISYM-l.NSYM 

HR I TE 1 6,8804 )  ISOLVE.  (CASE 

8R04  FORMAT! M ROX  •  ISOLVE»»,Il,  •  1CASE-»,12  ) 

HRI TE I  6. R806  ) 

8806  FORMAT  I //  *  NORMALIZED  NONUNIFORM  FREE  STREAM  VELOCITY  F 

)  IE LD  1N0IICF0  RY  PARENT  AIRCRAFT  AT  POINTS  ON  STORE  AT  WHICH  VELIKI 
2TY  IS  COMPUTEO.*  / 

3  •  VXNORM,  VYNORM,  VZNORM  ARE  GIVEN  IN  THE  BOM 

48  AXES  REFERENCE  SYSTEM. •  ) 

00  8R40  I W*l , N1WP 

NVELC  =  NUCUH, ISOLVE  > 

NVELS  a  NUS! IH, ISOLVE) 

HRITFI6.8R0R)  (W 

8808  FORMAT!//  •  I W=  WING  PART  **,11  I 

00  8R40  N*l,3 

WRITE! 6, R81 2 ) 

RR12  FORMA!!  /  ) 

-  11*1, NVELC 

8818,  8818,  R820 

1 1 1 “  1  )*NVELS  ♦  1 
11  *NVELS 


OO  8840 
IF  I  1W-1  ) 

8818  1T1  a 
IT2 

GO  Tn  8826 

8R20  I T 1  =  NVELI IW-1, ISOLVE)  ♦ 

IT?  =  NVEL  < 1W- 1, ISOLVE )  ♦ 
8826  GO  TO!  R82R,  8832,  8836),  N 
RR28  WRITE)6,8R30)  ISYM.  1W,  II 
R830  FORMAT!  • 

1  5X, 

GO  TO  8R40 
8832  WR1TEI 6, BR34 ) 

R834  FORMAT! 

I  5  X , 

GO  TO  8R40 
0R36  WR ) TE! 6,R838 ) 

R838  FORMAT)  * 

1  5X, 

8R40  CONTINUE 
RBSO  CONTINUE 
return 
ENO 


1 1 1 —1 )*NVELS  ♦  l 
II  *NVELS 

IVXNORMI IT, ISVMI,  1T*1T1, 1T2 ) 
VXNnRM)  IT,  ISYM)  ISYM*’, 11,  5X,  •  IW«*,U, 

•  1 1" 1 t 12,  5FI1.3  ) 

ISYM,  1W,  11,  ! VYNOR MI  I T » 1 S Y H 1 •  IT*1T1,IT2) 

VYNORMUT,  ISYM)  ISYM**, II,  $X,  •  1W*’,I1, 

•  11=’, 12,  5E11.3  ) 

ISYM,  IW,  II,  (VZNORM! IT. ISVMI,  IT»1T1,TT?1 
VZNORM! IT, ISYM)  1SYM«»,11,  5X,  •  TW-'.Ilt 

•  1 1  a  * , )2,  561 1.3  » 
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SUBROUTINE  VELOCYI  ISOLVE,  [CASE 


[ 

[ 

> 

2500 


iruvrs.  IKKVCLt  I ri 

UMI0SI24,5,3),  VM )  OS [24,5,3),  MM 
UMI0C(24.5.3),  VM10CI24.5.3).  HM 
U  11,1,1),  HM [OC  M.l.l),  UM 

v  (i»l.l )»  vm ioc  )i,i.ii.  vh; 

M  11*1.1).  MMIOC  (1,1.11*  MM 

3500,  8100),  ISOLVE 


5UU  *  J5UU.  S1UIJI, 

1900,  1900,  8102 


COHMON/CNET  , 

1  NCHGRO! 3 ) 

2  NIIC  (3,4) 

COMMON/C VELHC/ 

3 

COMMQN/C PRINT/ 

1 

DIMENSION 

2 

EQUIVALENCE 

1 
2 

r*n  TO(  8ioo, 

8100  [ F (  )  PRVEL  ) 

8102  CONTINUE 

WRITE [6, 0104) 

8104  FORMAT! '1' ,0OX  • 

1  * 

WR1TE(A,9106> 

8106  FORMAT!  • 

I  FREE  STREAM  ♦  G*GAMMA 
00  8150  >M*1.NIWP 
NVELC  e  NUC) IW, [SOLVE ) 

NVELS  r  NUSf 1W. [SOLVE) 

WRITE [6,8108)  IH 

8108  FORMAT!//  •  I M  =  WING  PART  3 

WRITE (6. 8110) 

8110  FORMAT!/  •  ll(  I  P,  IQ,  IM) 

00  8112  I P»I , NVELC 

8112  WR1TE>6. 8114)  IP.  < U ( I P *  I  0. 1 M ) , 

8114  FORMAT (  *  IP  =  *  ,12,  8F15.4 


NSYN 


1 SVM  I 


nwp  ,  n imp 

NSPAN  >3)  ,  NSCORDI 3  >  *  NVOR  13) 

NUS  13.4)  ,  NVEL  [3.4)  ,  NUT  141 

U  >24,5,3),  V  [24,5,3),  M  (24,5.3), 

VXNORMI 195,2),  VYNORM! 195,2 ) ,  VZNORM) 195 . 2) 

I  PRC.  , 

IPRVFS,  I PRVEL,  IPRGAM.  IPRCP  ,  IPRCF 
. . .  ‘  . OS  ( 24,  5,3), 


OC ( 24,5, 3  > 
OS  [1,1,11 
OS  >1,1,1) 
OS  [1,1,11 


ISOLVE, 

I  SOLVE3  ' , I _ . 
NSYMs* • 11, 


ICASE, 


NSYM. 

I C ASc= 
►  ISYMa 


,12, 

,11 


ISYM 


NORMALIZEO  VELOCITY  at  80UN0ARY  POINTS  = 
*> 


,11 


.NVELS I 
I 


WR I TF ( 6 . 8 120 ) 

8120  FORMAT ( /  • 

DR  8122  IP*l, NVELC 
8122  WRITE [6.8124)  IP, 

8124  FORMAT!  •  IP* 

C 

WRITF 16,8130) 


V( IP, 10. IW) 


[VI  IP. 10,  IW), 
,12,  8F 15.4 


RITFjf _ 

8130  FORMAT)/  *  W)[P,IO,IWi 

DO  8132  IP-1. NVELC 

8132  WRITE(6, 8134)  IP,  I W 1 1 P ,1Q. I W) . 


8134  FORMAT!  •  IP  =  ' ,12, 

8150  CONTINUE 
1900  RETURN 
C 

2500  CONTINUE 

00  2600  I  W*1 ,NMP 
NVfcLC  «  NUC) IW.2) 

NVELS  a  NUS ( ) W ,2 ) 

DO  2600  [»1, NVELC 

00  2600  [0*1. NVELS 

UM I  OS ! I , I  0, IW)  =  IK  I.  )0 
VMlDSd  ,1Q,IW)  =  VII. 10 
2600  WMIOSd  .10.  IW)  a  MU. TO 


8F15.4 


I 


10*1. NVELS) 
I 


10*1, NVELS) 
I 


,1M) 

,!w> 

,1M) 


I F (  I PRVEL  )  2900 

8202  CONTINUE 

WRITE! 6,8204 ) 

820*  FORMAT  I  ■  1  «  .80*  • 

l  • 

WRITE (6,8206 ) 

8206  FORMAT [  * 

1  POINTS  a  FREESTREAM 
HO  R250  [ H  3 1 . NH  P 

NVFLC  *  NUC ( I M, 2 ) 

NVELS  a  NUS ( I W , 2 ) 

VR I TE ( 6,8208 )  IW 

8208  FORMAT!//  *  IMa 

WR I TE I  6 ,8210 ) 

8210  FORMAT)/  • 

00  8212  I®I , NVELC 

8212  WRITE  16,8214  )  1, 

8214  FORMAT!  •  )  *• 

WRI TE 16, 8220) 

8220  FORMAT!/  • 

00  8222  1*1, NVELC 

8222  WRITE(6,8224)  I, 

8224  FORMAT!  •  I  *• 

WRITF( 6,8230 ) 

8230  FORMAT!/  • 

00  8232  )ai, NVELC 

8232  WRITE! 6,8234  )  I, 

8234  FORMAT!  •  I  *• 

8250  CONTINUE 
2900  RETURN 
C 

3500  CONTINUE 
00  3600 
NVELC 
NVELS 
no  3600 
00  3600  _  .. 

UMIOCt IP.J. IW) 

VMIDC ( I P*  J , I W ) 


2900,  8202 


ISOLVE,  ICASE. 
ISOLVE-'. 11,  • 
NSYN**,  U, 


NSYM,  ISYM 

ICASE*', 12, 

'  ISYM*', II  I 


NORMALIZEO  VELOCITY  AT  SPANWISE  SEGMENT  MIO 

►  G4GAMNA  • ) 


WING  PART  a'.Ii 

UMIOSd.IQ,  IW) 

(UMIOS)I, 10.  IW), 
,12.  9F15.4 

VMIOSI 1. 10, IW) 


J0*1, NVELS) 


1  ) 


IVMIOS! 1 

.12 


10*1, NVELS) 


WMIOS) ) . 1 0, 1 W ) 

(WMIOSI I,)Q,  IM). 
•12,  8F15.4 


| 0*1, NVELS) 


ISOLVE, 

ISOLVE*1 

NSYM3 ' 


ICASE, 
,11.  ' 
.11. 


I W* 1 , NWP 

*  NIJCI1M.3) 
a  NUSI I M , 3 ) 

1 P*1 .NVELC 
J=l. NVELS 

udP.j.iw) 

_  _  V! IP, J, IW) 

3600  MMIOC!  IP.J.  IW)  a  MdP.JflH) 

C 

IF «  1 PRVEL  )  3900.  3900,  8302 

8302  CONTINUE 

MR1 TE 16 , 8304 ) 

8304  FORMAT! • 1* ,POX  • 

1  • 

WRITE  I  6.8306) 

8306  FORMAT)  • 

I OPO I  NTS  *  FREESTREAM 
00  8350  IMal.NMP 
NVELC  a  NUC ( 1 W, 3 ) 

NVELS  a  NUS ( IM , 3  ) 

WRITF !6, 83081  IH 

8308  FORWATI //  •  IH= 

WRITE! 6,8310) 

8310  FnRMAT { /  • 

00  8312  I  Pal .NVELC 

8312  MRITF)6,0314)  IP, 

0314  FORMAT!  ' 

WRITE! 6,8320) 

8320  FORMAT {/  •  VM I OC 1 1 P. J, I  Ml 

00  8322  1P*1, NVELC 


NSYM,  ISYM 

ICASE*', 12, 

*  lSYMa',11  I 


NORMALIZED  VELOCITY  AT  CHOROMISE  SEGMENT  MI 


G*GAMMA 


MING  PART  3», II 

UM IOC (IP.J,  IH) 

IP,  lUMlOCMP.J.IM), 
IP*', 12,  8F15.4 


•) 


J3I. NVELS j 


86 


AE  DC -TR  «72-162 


P322  WPITEHS.P324)  IP, 

*324  FORMAT |  *  |P«* 

WRITE (A. fll3D> 

*330  FORMAT  (  /  « 

00  B33?  IPsl .NVEIC 
R332  WRITFIf,, 83341  1 1>  , 

8334  FORMA T I  •  IP»« 

83SO  CONTINUE 
3900  RETURN 
FNO 


IVM10C l IP, J.  IW), 
f  I  2 »  8F15.4 


WMIOCIIP.J. IW) 


iMHlOCt ]P. J. IW)* 
,12.  AFIS.4 


J- 1 • NVFL  S I 
) 

•) 

J«1 »  nvELS ) 
} 
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«  CLTOT  •  CMTOT  .  CNTOT  .  CRTOT  1 
NWP  ,  NIMP  . 

,  NSPAN  ( 3  )  «  NSCORDj 3 )  .  NVOR  131  v 

,  NUS  ( 3»4>  9  NVEL  ( 3,4)  ,  HUT  (4) 

XNET  ( 24,5,3  > «  YNET  (24,5,3),  ZNET  (24,5,3), 

AKS1  (23,4,3),  ETA  (23,4,3),  ZETA  (23,4,3), 


SlIRRDUTlNE  ACOEFFI  1SQLVE.  NCASE  ,  1CASE  ,  NS YN  ,  1SYN 

1  LN  , 

1  1KJ  ,  1CF  , 

1  HT1P  ,  MROOT  , 

1  MM  , 

2  BFT A  ,  ANU  ,  P51  , 

2  XCG  ,  YCG  ,  ZCG  , 

3  S  ,  BSPAN  ,  CBAR  , 

4  GAMMA V  , 

C  COTOT  ,  CYTOT  ,  CLTOT  ,  CMTOT  ,  CNTOT  ,  CRTOT  1 

COMMON/CNET  /  NWP  ,  NIMP  , 

1  NCHOROm  ,  NSPAN  (3)  ♦  NSCORDJ 3)  ,  NVOR  131  , 

2  NIJC  1 3,-4  >  ,  NUS  (3,4)  ,  NVEL  (3,4)  ,  HUT  (4) 

COMMON/CCOORO/  XNET  (24,5,3),  YNET  (24,5,3),  ZNET  (24,5,3), 

1  AKS1  (23,4,3),  ETA  (23,4,3),  ZETA  (23,4,3), 

2  XFLOWF (  1,  1),  YFLOWFf  1,  1  ,  ZFLOWFf  1,  11, 

3  BOC  1156,3).  AX  (3),  AY  (3),  AZ  (3) 

COMMON/CVELOC/  U  (24,5,3),  V  (24,5,3),  W  (24.5,3), 

1  VXNORM ( 195,2),  VYNORMt 195,2 ) ,  VZNORMf 195, 2) 

CflMMON/CPR 1  NT/  IPRG  , 

1  IPRVFS,  1  PR VEL>  IPRGAH,  1PRCP  ♦  IPRC 

DIMENSION 

1  MT I P (3 )  ,  MROOT ( 3  )  , 

2  ANU  (LM>  ,  PSI  (LM1  , 

4  GAMMAVI 156,2,5) . 

A  CnT0T(5),  C YiOT i 5 ) ,  CLTOT ( 5 ) ,  CMTOT(5),  CNTOT(5),  CRT0TI51 
DIMENSION 

1  OELVK3)  ,  0ELV2  ( 3 )  , 

2  OGDLSPl 24,  4),  0G0LCH(23,  5), 

3  UR  PUPP (23,  4),  V8PUPP (23,  4),  WBPUPPf  23,  41, 

4  UBPLOWI23,  4),  VBPLOW ( 23,  4),  HBPL0M(23,  4), 

5  CPUPP  (23,  4),  CPLOW  (23.  4) 

DIMENSION  UMlDS ( 24 1 5 ,3 > ,  VM 105 ( 24, 5, 3 1 •  WH10SI 24,5,3) , 

2  UM[OC( 24*5,3),  VM1 OC ( 24, 5,3),  MM|DC( 24, 5, 3) 


AKS1  (23,4,3),  ETA  (23,4,3),  ZETA  (23,4,3), 
XFLOWFt  1,  1),  YFLOWFf  1,  1),  ZFLOWFf  1,  11, 
AX  (3),  AY  (3),  AZ  (3) 

(24,5,3),  V  ‘  - 


(3),  AZ 
(24,5,3),  W 


(3) 

(24.5,3), 


VXNORM ( 195,2),  VYNORMf 195,2 ) ,  VZNORMf 195, 2) 
IPRG  , 

IPRVFS,  1PRVEL>  IPRGAH,  1PRCP  ♦  1PRCF 

,  MROOT ( 3 )  , 

_  ANU  (LM)  ,  PSI  (LM1  , 


5  CPUPP  (23,  4),  CPLOW  (23 
DIMENSION  UMlDS ( 24, 

2  UM [0C( 24* 

DIMENSION 
1  GAMMA (24,6,3) 

DIMENSION 

1  C05P  (24,  4),  CY5P  (24 

2  CMS P  (24,  4),  CNSP  (24 

3  CDCH  (23,  5),  CYCH  (23 

4  CMCH  (23,  5),  CNCH  (23 

0 1  MENS  1  ON  OELX  (19 

1  A3 ( 195,2,6 ) 

EQUIVALENCE  {  U  (1, 

1  (  V  (l, 

2  (  W  (1, 

0EF1NE  GAMMA ( K ,LG • 1 W ) 

hflP(IW)  -  ^CONTIGUOUS 


(24,  4),  CLSP  (24,  41, 

(24,  4),  CR5P  (24,  41, 

III:  ?!:  M"  III:  If- 

(195,2),  DELY  (195,21,  OELZ  (195,2), 


(195,2),  DELY  (195,21,  OELZ  (195,2), 

(1,1,1),  UMIDC  (1,1,1),  UMIOS  (1,1,11  )• 
(1,1,1),  VMIOC  (1,1,1),  VMfOS  (1,1,11  ), 
(1,1,1),  WMIOC  (1,1,11,  WMIOS  (1.1,1)  1 


ONTIGUOUS  TIPS  (  CLOSED  BODY  ) 


»  1  TERMINAL  TIPS  (  WING.  TAIL.  FIN  1 
MROOT ( IW )  =  0  CONTIGUOUS  ROOTS  (  CLOSED  BODY.  WING.  HORIZ  TAIL  1 

=  1  TERMINAL  ROOTS  (  VERT  TAIL.  FIN  1 


DO  1400 

NNC 

NNS 

NNSP1 

NVORC 

NVORS 

OD  1110 
JT 

GAMMA  f  X , 


1W-1.NWP 

*  NCHORDMW) 

^  N5PANMW) 

=  NS°  AN ( 1 W )  *1 
»  NCH0R0(1W)-1 
■  NS^AN ( l W )  -1 
K-l. NVORC 
**  (<-l)*NVDRS  ♦ 


GAMMA (X*NVDRS*2,1W>  ■ 


(  1-MT1P(!W)  I 

(  -GAHMAVf JT,3-ISYM,1_CASE1  1 

(  l-MROOT(lW)  ) 

(  -GAMMAV( JT, 3-1 SYM,1 CASE)  1 


DO  1250  LG-2, NNS 

00  1250  K«l .NVORC 

(FI  (W-l  )  1210,  1210,  1220 


JT  =  (K-1)*NV0RS  *■  (LG-11 

GO  TO  1250 

JT  =  NVDR(IW-l)  ♦  ( K— l  )*NV0R5  *■  (LG-1) 

GAMMA (K. LG. IW )  -  GAMMAV ( JT, 1 5YMf 1CASE ) 

OD  1350  LG=1.NNSP1 
GAMMA ( NNC, LG , 1 W )  -  0. 


1 400  CONTINUE 

I F (  IPRGAH  )  0150,  8150,  8100 

R100  CONTINUE 

WR1TE(6,8104>  ISO 

8104  FORMA  KM',  BOX  *  ISO 

1  ■  N 

WRITE (6,8110) 

R1I0  FORMAT (  *  GAM 

□0  B 1 30  IW-l.NWP 
NNC  -  NCHORO(IW) 

NNSP1  -  NSPAN(IW)  ♦  1 

WR]TE(6,A12n>  ]W 
8120  FORMAT (//  •  IW=  WIN 

00  81 30  K-l. NNC 


ISOLVE,  1CA5E 
ISOLVE-*, 11,  • 
NSYM-',II, 

GAMMA(K,LG,1W) 


N5YM,  1 SYM 

ICASE«'»I2, 

*  1 SYM-*, II 


8120  FORMAT ( //  •  IW=  WING  PART  «',11  1 
00  8130  K-l. NNC 

R130  WRITE ( 6*8132 )  K,  (GAMMA (K. LG, IW ),  LG-1.NN5P1I 
8132  FORMAT!  '  K  -*,12,  10E12.4  I 
Bl 50  CONTINUE 


GO  TO (  1500,  2000.  3000),  ISOLVE 
CONTINUE 


1500  CONTI NU1 
00  1900 
NNC 
NNS 
NVORC 
NVORS 


I  W-l. NWP 

=  NCHOROUW) 

-  NSPANI IW) 

=  NlHORO ( 1 W )— 1 

-  NSPAN I 1W)-1 


C  COMPUTE  OGOL  AT  MIDPOINTS  OF  SPAN  SEGMENTS 
Dfl  1550  1-1, NNC 

IP  »  I 

00  1550  10=1, NVORS 

J  =  10 

LG  «  104-1 

IF  f  I-l  )  1510,  1510,  150B 

1508  I F (  1 —NNC  )  1520,  1530,  1530 

1510  XLE  =  (  XNET(l.J.lW)  4-  XNET  ( 1 ,  J+l ,  I W 1  1  /  2. 

YLE  »  (  YNET  ( 1 ,  J  .  I W  >  *■  YNE T  ( 1 ,  J  +  l ,  I W I  >  /  2. 

ZLE  =  (  ZNET  ( 1  *  J  •  IW)  *■  ZNET(1,  J4-1,  IW)  )  /  2. 

ELASOC  =  2.4  SORT f  (  AKS1 (  1,10,IW)-XLE 

l  4-  (  ETA(  1, 10,  IWl-YLE 
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G n  TD  1540 

c 

1520^1*500 

2 

GO  TO  1540 

C 

1530  XTE 
VTE 
ZTE 

ELASOC 

1 
2 


*  I  ZETAI  1*10, IHI-ZLE 


SORT  I 


♦  I 


AK 

E 

ZETA 


«if?:I8:ISl=*|fil  p'-i:IS:[SI  I 

TAUP.IO,  IHI-ZETAI  P-1.  10,  I W  1  ) 


•42 

•*2 

)**2 


XNET|NNC,J,IH> 

YNETINNC, J.IM) 

ZNET  I  NNC , J,  IW  > 


XNEKNNC.J4l.IH) 
YNETINNC,  J4li  IW) 


=  2**S0RT I 


IH)  ♦  ZNEHNNC.J41.INI 
SHNVDRC,  10,  IHl-XTE 
TAINVORC.IQ, IH  J-YTE 


1540  DGOLSPII.IO)  -  GAMMAI I , 1041 , IH ) 
1550  CONT  TNUE 


.  AK 

I  E  _  _ 

<  ZETAINVORC. 10. IWI-ZTE 

/  fLASOC 


2. 

2. 

2. 


)**2 
)**2 
)  **2 


COMPUTE  OGOL  AT  M10P0INTS  OF  CHORO  SEGMENTS 
On  1650  IPal.NVORC 
-  IP 
J»l .NNS 

»  J 

«  TO+l 

1610.  1610,  1604 
1620.  1630,  1630 


I 

00  1650 

10 


J-l 


\h 

I  F  I 


_  _  > 

J-NNS  > 


1604 

: 

1610  IF  I  MTIP(IH)  )  1612,  1612,  1614 

1612  ELASOC  -  ABS I  2.  •  ETAIIP.I.IH)  > 


GO  TO  1640 
1614  XT  I P 

YTIP 
ZTIP 
EL ASDC 

1 

2GD  TO  1640 

c 

1620  ELASOC 

2 

GO  TO  1640 


1630  I  F  I  MROOTI  IH) 

1632  ELASOC  ■ 

GO  TO  1640 
1634  XROOT  - 

YROOT  * 

ZROOT 
ELASOC 

1 

2 


■  I  XNETII.l. 

•  i  ynet ( ] , i , 

-  (  ZNETI 1,1. 
■2.4  SORT ( 


HI 
IH) 

IH)  4  ZNI 
AKSII* 
ETA  I 
ZETAI 


XNETI 

YNf~ 


ii!l .... 

IP.l  ,  IN ) - 
IP.l  , I H ) — ' 
IP.l  , IH )- 


4l,l.IH)  ) 
♦1,1, IH)  ) 
♦1,1, IH)  ) 
"  -JCTIP 
YTIP 
ZTIP 


)  *  *  2 
)4*2 
)  *  *  2 


SORT)  <  A<S I  IIP. ]Q.IW)-*KSI I ]P, I0-1.IH)  )**2 

♦  I  ETACIP, IQ, IN)-  ETAI IP, 10-1,  HI  )**2 

♦  (  ZETAI IP. 10. TH)-ZETA| IP.IO-l.  H)  )**2 


1632,  1632,  1634 

ABS<  2.  •  ETAI IP,NNS-1.IW) 


(  XNETII.NNS.IH) 

f  YNETI . . 

I  ZNETI 


■  2.*  SOR 


li 


NNS.jW) 


NNS , I H  ) 

I  XROOT 
<  YROGT 
I  ZROOT 


XNETI T4l.NNS,IH) 
YNETI 141, NNS,  IH) 
ZNETI |4l,NNS.I 


)  /  2. 
)  /  2. 


!♦ 1 , NNS. I H )  I  /  2. 
-AKSTI IP.NNS-1.IH) 
-  ETAI IP.NNS-1. IH) 
-ZETAI | P, NNS- 1 . IH) 


i::i 


1640 

1642 

1650 


SUMGAH 


00  1642  K«1 ,1 

SUMGAH  ■  SUMGAH  4  GAMMA  IK, LG-1 , 1 H )  -  GAMMAI K. LG, IH J 
OGOLCHilP.J)  *  SUHGAM  /  ELASOC 


1700 


00  1700 

I 

DO  1700 

J 

OGOLSPI TP, 
OGOLCMI IP, 


IP-UNVORC 
s  Jo 

10*1 jNVORS 


!9> 


0.5 

0,5 


C  OGOLSP ( T, TO )  4  OGOLSPI 141,10)  I 
I  DGOLCHUP.J)  ♦  OGOLCHI  IP.J  +  l)  I 


00  1R50  I 3=T • NVORC 
IP 


1R50 


1)0 
J 

I F  C  IW-1  » 
1P10  IT 

GO  TO  IP 30 
1P20  IT 


10=1 »NVORS 
=  10 

I  1810,  1810, 


1820 

I  IP-1 ) *NVORS 


10 


1630 


MIF 


=  NVORUM-1)  ♦  IIP-1)4NV0RS  ♦  10 


OELXSP 

OELYSP 

1 

OELZSP 

1 

EL 

COEFF 

OELVl II I 

1 

OELVl 12) 


_  .  .  ,  J41.IH)  4 
-  I  XNETI I , J  ,  IH  >  4 


YNETI 
YNET 
.  ZNET . 
-  I  ZNETI 


SORTI 

0.5 

COE^F 

COEFF 


•J41.IH) 

:t  •,w’ 


,  I H  )  ♦  ZNETI |4| ,  J  + 1 , 
,  I  H  )  4  ZNETU41.J  , 


HI  ) 


XNETI |4l , J4lf  L  . 
XNETI 1 4 1 , J  , I H )  ) 
YNETI 1+1, J41.TH)  ) 
YNETI I ♦ 1 , J  ,IH)  ) 

. . H)  ) 

H)  ) 


,i*r  ♦  tn tmti.j  ,  imi 
0ELXSP442  ♦  0ELYSP442  ♦  D&LZSP442 
'  OGOLSP 1 1 P,  1C)  /  EL 
I  OELYSP  *  BDCl IT, 3) 


DELVII3)  *  COEFF  * 


-  OELZSP 
I  OELZSP 

-  OELXSP 
(  OELXSP 

-  OELYSP 


B0CI1T.2I 
30C I  I T , 1 ) 
BDCI IT, 3) 
BOCI IT, 2) 
BOCI I T, 1 1 


) 


OELXCH 


I 


OELYCH 

1 

OELZCH 

l 

EL 

CrE  =  F 
0ELV2II ) 


*  SORTI 
=  0.5 
=  COFF<= 


.  41.J+1, IH)  ) 
XNETI I  ,J41,IM)  ) 
YNET 1 141 , J4l f |H )  ) 
YNETI I  ,J41,jHj  j 
ZNETU4I.J+1,  IH)  ) 
ZN5TJ |  ‘  * 


ETI  .  _ 

XNETI I  ,J,1W> 

I  YNETIJ41,j,IN) 

I  YNET 1 1  ,J,IW) 

I  ZNETI ]4l,J,IH) 

I  ZNETI I  , J, IH ) 

0ELXCH4P2  +  0ELYCN**2  ♦ 

■  OGOLCHI IP, TO)  /  EL 
♦  I  OELYCH  ■  BOC I  I T , 3 1 

-  OELZCH  4  BOCI I T , 2) 
0ELV2I2)  =  COEFF  *  I  OELZCH  •  BOCI IT, II 

f  OELXCH  •  BOC*  “ 

COEFF  4  |  CELXCH  4  ROC 

-  OELYCH  4  ROC 
IJI  IP,  10,  THI  ♦  OELVl  <11 

VI  IP, TO, IH)  ♦  OELVl I  2  )  _ 

HI  1 P, 10, IH I  ♦  OELVl I  3  I  ♦  0ELV2I3) 
UIIPifo.lHl  -  0FLV1I1)  -  CELV2I1) 
VI  TP, 1 0 • I H I  -  0ELV1I2I  -  0ELV2I2) 


, J 4 1 ,  TH) 
0FLZCH4«2 


) 


DEL V2 1 3 ) 


UBPIJPPI 

V»PUPPI 


WRPIIPPI  ]P,  10) 
- P,  I0> 


P,  TO) 
0 ,  TO ) 


:i it, 3) 

l] IT. 2) 
CUT, IT 


0FLV2I1 ) 
0ELV2I2) 


UBPLOfM 
VRPLOHf IP, TO) 
WB^LOHI !P,IC) 
CPUPFC I®, TO) 

1  *  1. 

2 

3 

CPLCIWUP.IO) 

1  *  1. 

2 

3 

C°li°P  1 1  P,  I O ) 


-  I  IJIIP.IO.IH) 

-  I  VI  IP • TO, I  HI 

-  I  HI |P,I0,IH) 

-  I  UIIP.IO.IH) 

-  I  VI )P«IO, IHI  ■ 

-  I  HI IP.TO.IH)  • 
=  CPIIPPI I P.  TO)  / 


:  RiUMi 

•  DEL VI I  3) 

■  OELVl I  1 ) 

•  OELVl I  2 ) 

•  OELVl I  31 
BETA**2 


DELV2I3) 

4 

0FLV2I 1) 

)  **  2 

* 

0ELV2I 21 

l**2 

4 

0ELV2I 3 ) 

)  44  2 

_ 

0ELV2I 1 ) 

)**2 

— 

0FLV2I2 1 

1**2 

- 

DELV2I3) 

)**2 

I: 

2. 

2. 

2. 

2. 


1 


) 


) 


I 


) 
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CPL0WMP.1Q1  -  CP1.OWlIP.IO>  /  RETA**2 
C 

IR50  CONTINUE 

£ 

I F |  IPRVFL  I  *350,  R350,  *200 
R7.00  CONTINUE 

WRITE (6. P  20* 1  I  SOLVE •  ICASEi  NSVM.  1  SYM 

R204  FORMAT I //  FOX  •  (SOLVE- • . 1 1  *  •  (CASE-*, 17. 

1  •  N§YM«  * ■ ( 1*  •  TSYN.i.tl  | 

W«  I 

R206  FORMAT  |  /  •  UPPER  ROUND  ARY  POINT  VELOCITY  -  FRE 

IAN  ♦  r.*r.ANMA  ♦  01 STR | RIlTEO  VORTICJIY  *T 

WRITE ( 6, R20A  >  Itf 

R70R  FORMAT  I  ■  Itf-  WING  PART  «’,  [|  I 

WB 1TP (6.R210 J 

R?1  0  FORMAT  I  /  •  iJ  *■  DEL  VI  II I  *  0ELV2I11  1 1 

0C1  R7|?  IP-1, NVOKC 

R?12  WRITFI  A.R2|4»  |P,  |tJP)P|)PP|  IP, ]01 ,  10-I.NV0RSI 

R7.I4  FORMAT  I  •  IP-*,I7,  RF15.4  > 

WRITEI A.R7?n> 

*220  FORMAT  I /  •  V  *  OELVI (2  >  ♦  OFLV2I2I  *1 

00  R722  IP-I.NVORC 

*727  WRITFI6.R774)  IP.  I  VRPIIPP  I  I P,  1  0  1 ,  lQ-l.NVDRS) 

«?24  FORMAT |  •  IP-».l2,  RF15.4  > 

WR | TP f 6.P7301 

R730  FORMAT  I /  •  W  +  OELVI 131  ♦  OELV2I31  •) 

on  R237  IP-UNVORC 

RP  37  WRITPI  6, *73*1  IP.  I WRPIIPP  (  |  P,  10)  ,  10-1.NV0RS1 

R734  FORMATI  •  I  P= ■ ,  I  7  ,  BF15.4  I 

C 

WRl TF 16, R306 I 

R306  FORMAT  I /  •  LOWER  ROUNOARY  POINT  VFLOClTY  ■  FRE 

1AM  ♦  G’GA-MA  ♦  0 1 STR IRIPTEO  V0RT1CITY  •> 

WR ITF  f  6.  H30R  1  1W 

H30R  FORMAT  I  •  |M-  MING  PART  -*.11  I 

WRl  IF  16,4310] 

R31 0  FnwNAT I /  •  II  -  OELVI ( I  I  -  DFLV2 III  M 

on  RM?  1P-1.NV0RC 

R317  HR1TF(6.R3141  IP.  IUBPLOW II P,  1  01 ,  I0-1.NV0RS1 

R314  FORMAT  I  •  |P-*  .12.  RF15.4  I 

WRITE (4. R3 20 ] 

R370  FORMATI /  •  V  -  0ELV1I2J  -  OELV2I2I  • I 

on  *37?  1P-1.NV0RC 

R377  WRITE  16,4324  >  IP.  IV-PLOWt IP. 101.  lO-l.NVORS) 

R37.4  FORMAT  I  •  IP-*, 12*  RF13.4  | 

WR  I TF I  6.4330 1 

4330  FORMAT ! /  •  W  -  0ELV1I31  -  OELV2I3I  •  I 

On  R337  IP-I.NVORC 

6332  WR|TF(6.P334)  IP,  I W RPLOM I ( P, 1 0 >,  I0-1.NV0RSI 

R334  FORRATI  •  IP-’. 12,  RF1S.4  1 

4350  CONTINUE 


IF f  IPRCP  >  1900.  1900.  4400 

R400  CONTI  WIPE 

WR1TFI4. 44041  1S0LVE.  (CASE.  NSYM, 

R404  FORMAT!//  BOX  *  ISOLVF-’.ll.  *  1CASF 

1  •  NSYN-’.Ht  '  1SYN 

WH I T F  f 6.440R )  |W 

R4CIR  FORMATI//  •  fw-  WING  PART  -’.11 

IPLF  -  1  ♦  NCHUROIIM)  -  NSCOROIIWI 

WR  1  T  F I  4  »  R41 0 ] 

R410  FORMAT!  •  CPllPPI  I P.  10 1  CSH6P 

00  4412  ip-iple.nvorc 

H412  MR  I TF  f  6,441 4 ]  IP,  | CPUPP I  1 P. 10 1 ,  IU-I.NVORSI 

R4I4  FORMAT  I  •  IP-’. 12.  RF10.4  I 

WRITE (6, *420) 

B420  FORMATI/  •  CPLOWIIP.IOI  CSIWP 

00  R4?2  |P-|PLE,NV(1RC 

B422  WR I T F 1 6 ,64241  IP.  ( CPLOW II P. 1 0 1 ,  IA-1.NV0RSI 

R424  FORMATI  •  IP-*, [2.  4F10.4  | 

1900  CONTINUE 
RETURN 


N5YM,  I SYM 


CSlIAP  UPPER  SURFACE  *) 


CSIWP  LOWER  SURFACE 


COMPUTE  FORCE  ANO  MOMENT  COEFFICIENTS 


IS  LIFT 
OR  AC, 

SJDF  FORCE 
OR  AG 

S  IOE  FORCE 

PITCH 

ROLL 

YAW 

PITCH 

ROLL 

YAW 


COEFFICIENT  AT  MIDPOINT  OF  SPAN  SEGMENT 


SUMMED  OVER  ALL  SEGMENTS 


CYTOT  Si  OF  FORCE 

CWTOT  PITCH 

CRTOT  ROLL 

CNTOT  YAW 

CONTINUE 

COMPUTE  FORCES  ANO  MOMENTS  AT  SPANWlSE  MIDPOINTS 
GO  T 0 1  2100.  22001,  I SYM 
COTOT ( ICASF  1  -  O. 

CYTOT I ICASEi  •  0. 

CLTOTIICASFl  -  O. 

CMTOT 1 1 CASF I  -  0. 

CNTOTIICASEl  •  0. 

CRTOT ( 1  CASE  1  -  0, 

on  26nn  iw-i.nvp 

NNC  -  NCHflRfM  I  Ml 

NVORS  «  NSPANI1W1  -1 

ILE  -  I  4  NCHORDIIWI  -  NSCOROIIWI 

on  2500  I-ILF.NNC 

nn  2500  10- I « WVORS 

J  -  to 

LG  -  TO  ♦  1 


CYTOT I ICASEi 
CLTOTIICASFl 
CMTOT 1 1 CASF  I 
CNTOTIICASEl 
CRTnT ( 1  CASE  1 
on  2600  I  ¥ 


NVORS 

ILE 

Ofl  2500 
on  2500 
J 

LG 


I F |  1 W-| 

'  IT 

GO  TO  2430 

IT 


I  2470,  2470.  2422 
■  11-llRNVORS  ♦  TO 


IW  I  III  /MAH 

T  -  NVELtltf-1.21  +  II-I14NV0RS  ♦  10 

F |  |  K J  -l  1  2432,  2432.  2460 

F|  ICASE-I  1  2434,  2434,  2460 
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2434 

IP  ( 

ISYM  -1 

) 

2436.  2436.  2460 

2436 

DEIXI |T,1 ) 

c 

XNETI  I  * J+ I . I W > 

— 

XNETI ] 

[ .  J  * 

Wl 

OELYI 1 T . l ) 

s 

YNETI I »J*l*fW) 

— 

YNETI 1 

1  *  J  . 

W) 

OELZUT.I  ) 

s 

ZNETI 1 , J+  L , I W ) 

— 

ZNETI 1 

*  J  * 

w> 

XMIDS 

■ 

1  XNETtl.J.fW) 

♦ 

XNETI 1 

i.J+1 

•  IWI 

Y«10S 

m 

1  YNET  f I » J • I H ) 

♦ 

YNETI 1 

1 .  J  + 

.  IW) 

ZMJOS 

m 

1  ZNETM.JflW) 

♦ 

ZNETI 1 

[.  J*1 

•  IWI 

A3 1 

T.Itl  ) 

m 

I2./IS*CAAH) ) 

* 

IXMID! 

>-xct 

A3 1 

T ,1 ,2 ) 

m 

1 2  •/ 1 S*C A AR ) > 

* 

(ZMIOS-ZCG) 

A3  1 

T.1.3) 

B 

12./ 1 S*CBAR  > ) 

* 

IYMIOS-YCGI 

A3I 

T.l  .4) 

B 

1 2 •/ 1 S*C8 AR  )  ) 

* 

IXMIOS-XCGI 

A3  ( 

T ,  1 . 5  ) 

B 

I2./I S*RSPAN) ) 

* 

IYMIOS-YC( 

S) 

ASM 

T  ,1 .6  ) 

B 

1 2 • / 1 S*B  SPAN ) > 

* 

ZM1 OS-ZCG ) 

2460 

CONTINUE 

PX 


PZ 


l 


•  I 

*  I 
•  10) 

•  10) 

•  10) 

•  io> 

•  lo> 

•  10) 
2472 

T  •  1  > 


-  -  r.  A  MM  AM  tLG.IH) 

WHIOSII »I0* IW)*OtLYI I T v 1 >  -  VMIDSI  I.  IOtIW>*OElZMT.l  )  1 
■  -  GAMMA M tlG«lM> 

IDS  I IfIOtlM)*DELZ( IT» 1 ) 


C0SP1 
CYSPI 
CISP1 
C  MSP  1 
CMSPI 
CRSPI 
GO  TO 

2*70  OELYI . 

A3  I  I  T 1 1  •  3  ) 
A3I IT.1,5  ) 
c2472  CONTINUE 

COTOTIICASE) 
CYTOTIICASE) 
CLTOT 1 [CASE) 
CMTOTUCASE) 
CNTOTI ICASE) 
CRTOTUCASE) 
2500  CONTINUE 


0*  I  M ) *DE 


IIM _ 

GAMMi 

VM I  OS ( I • I  Of .  . .  __ 

*  -  12. /S)  *  PX 

*  12. /S)  *  PY 
■  -  12. /S)  *  PZ 

*  -  PZ  *  A3 1 1 T • 1 • 1 > 
-  PX  *  A3I1T.1.3) 


.  W) 
LXIIT.l) 


-  WMIOSI I . IQ. IWI*OELXI IT.1I  I 

-  UMIOSI 1 .10. IWI*DELY| IT.l  I  ) 


PX 

PY 


PZ  *  A3I f  T» 1 • 5 )  -  PY 
2470).  NSYM 
-  -  OELYI IT,1 ) 

■  -  A3IIT.I.3) 

■  -  A3IIT.I.5) 


*  A3I I T. L. 2  I 

*  A3(  l T v 1 • 4 1 
«  A3I lTt 1 . 6  1 


=  CDTOT ( 
■  CYT0T1 
•  CLTOT I 
-  CMTOTI 
=  CNTOTI 
=»  CRTDTI 


CASE) 
CASE) 
CASE) 
CASE) 
CASE) 
CASE  ) 


COSP 1 1 • 10 1 
CYSPMflO) 
CL  SP 1 1 • 10  I 
CMSPU.IOI 
CNSPM.IOI 
CHSPII. 101 


IF  I  I  PRC F  >  R670»  8670.  8600 

R600  CONTINUE 

WRITEI6.R604) 

A404  FORMAT  I //  ROX 

1 


WRITE 
0608  FORMA 
WRITE 
R6 I  0  FORMA 


00  8612 


6.R60R) 

I// 

6.R610) 
1/ 


1W 

IW- 


NSYM, 
ICASE* 
«  ISYM* 


I-ILE.NNC 


B612  WRITEI6.R614) 

R6t4  FORMA 1 1 

WB I TE 16.8620) 

0620  FORMAT | / 

00  R622  I-ILE.NNC 

R622  WRITEI6.R624)  I . 

8624  FORMAT  I  •  I  -• 

WRITFI6.8430) 

A630  FORMAT  I / 

OD  R632  I-ILE.NNC 

8632  WRITEI6.R634)  I, 

R634  FORMAT  I  *  I  -• 

WRITFI6.P640 ) 

R640  FORMAT  I /  * 

00  R642  I-ILE.NNC 

R64?  MR  I TE I  6  #8644 )  I. 

BA44  FORMAT  I  •  I  - 1 

WRITEI6.R650I 
R650  FORMAT  I /  • 

DO  R652  I-ILE.NNC 

R652  WRITFI6.R656)  I, 

R654  FORMAT  I  *  I  =* 

WRITE  1 6. R660) 

R660  FORMAT  I /  • 

DO  R662  I-ILE.NNC 

R662  WRITEI6.86£4)  I. 

R664  FORMAT!  .•  f  I  - ' 

R670  CONTINUE 
2600  CONTINUE* 

RETURN 

• 

3000  CONTI  A 


I  SOLVE.  ICASE. 

I  SOLVE- * • 1 1 •  • 

NSYM-*. II. 

WING  PART  ■  1 1 

CLSPI I. 10 ) 

io-unvorsi 


.12. 

.II 


ISYM 


►I 


COSPII.IO) 

rcospi i. io), 

.  1 2  .  4F 1 0. 5 

CYSPII.IOI 

ICYSPI I. 10), 
.12,  4F 10.5 

CMSPI 1,101 


tCMSPIIflO),  IQ-1. 
.12.  4F10.5 


1  ) 


1 0-1 .NVORSI 


1 0-1, 


n 


NVORSI 


'  I 


NVORSI 
I 


CRSPII.IO) 


(CRSPI 
•  12 


CNSPI I.IO) 


ICNSPI IflO). 
♦12.  4F10.5 


•  I 


i  NVOAS  > 


•  > 


10-1 • NVORS  I 
I 


c 
c 

3000  CONTINUE 

C  COMPUTE  FORCES  AND  MOMENTS  AT  CHOROWISE  MI0P01NTS 


IW-lfNWP 


DO  3600  ... 

NNS  -  NSPANI IW) 

GO  TOI  3100.  3200). 
3100  ISYM  a  I 
J1  ■  1 
J2  o  NNS 
GO  TO  3400 


3200  ISYM  =  2 

I F |  MT1PIIW) 
3210  JI  =2 

GO  TO  3300 
3220  Jl  =  1 


ISYM 


)  32 10 •  3210.  3220 


3300  I F |  MROOTI IU) 
3310  J2  -  NNS-1 
GO  TO  3400 
3320  J2  =  NNS 


)  3310.  3310.  3320 


3400  IPLE 
NVORC 
00  3500 
I 

on  3500 
LG 

c 

I F I  IW-1 
3420  IT 

GO  TO  3430 
3422  IT 

3430  I F I  IKJ  -1 
3432  I  PI  ICASE— 1 
3434  I F |  ISYM  -1 

3436  OELXI IT. 2) 
OELYI  IT. 2) 


=  1  *  NCHORDt I W )  -  NSCORDI I Wl 
-  NCHOROI IW)-I 
IP-  IPLE .NVORC 
=  IP 
J-Jl .J2 
=  J  +  I 


>  3420, 


3420.  3422 

I  I  P-1 )*NSPANI IW) 


♦  J 


-  NVELIIW-1.3)  ♦  | 
3432.  3432.  3460 


UP-1  )«NSPANI  IWI  ♦  J 


3434.  3434.  3460 
3436*  3436.  3460 
■  XNETlI+1 .J.IW)  -  XNETII.JflUI 
=  YNETI I+l.J.IW)  -  YNETI I.J.IWI 
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RELZIIT.21 

xrioc 

*mirc 

ZMIOC 

fi3(|T.M  1 
*31 IT, 2, 2  1 
A3I  IT,2,3! 
63IIT,2,4I 
ABUT,?  ,5  ) 
A3I IT. 2, 61 
3460  CONTINUE 
L 

SIIMGAM 

nn  3490 

SUNG AM 


ZN6T ( I ♦! ,J,IW1 
I  XNETII,J,|MI 

(  vnetii,j,|hi 

I  ZNET  I  1  *  J •  I  Ml 
C  2 . / f  S*CRA4  > 1 
(2./ I S*CHA«  )  I 
12. /I S-CBARll 
I2,/!S*CBAR>  1 
I2./I S*8S»AN) 1 
I2./I S-BSPAN1 > 


ZN6TC I ,J,IM! 
XNETI 1*1, J, IWI 
YN8TI 1*1 ,J,IW> 
ZNETI ]♦!. J, IW) 
( xMinc-xcr.J 
!2M10C-7CGI 

lYMf—  - 

IXM 
1YM 
CZM 


2. 

2. 

2, 


HC-YCG) 

ftC-XCfil 
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Output  Data 

All  of  the  output  data  from  this  step  is  written  on  a  printer.  Dis¬ 
tributions  of  NUFF  data,  velocity,  vorticity,  pressure  coefficient,  and 
force  coefficients  can  be  optionally  printed  (these  options  are  controlled 
by  input  data  to  the  previous  step. )  When,  force  coefficients  are  deter¬ 
mined  without  performing  trajectory  calculations,  the  output  data  in¬ 
cludes  total  force  and  moment  coefficients  and  the  orientation  of  the 
store  with  respect  to  its  parent  aircraft.  When  trajectories  are  cal¬ 
culated,  total  force  and  moment  coefficients  and  solutions  to  the  equa¬ 
tions  of  motion  are  printed. 

In  performing  the  calculations  for  the  sample  run  used  to  illus¬ 
trate  program  operation,  it  was  assumed  that  the  downwash  and  side- 
wash  vanished  identically  (DOWNV  =  0  and  SIDEV  =  0)  and  the  distri¬ 
bution  of  velocity  magnitude  was  constant  (VMAG  =  1.0). 

Representative  results  for  this  run  (pressure  coefficient  distri¬ 
bution  and  total  force  and  moment  coefficients)  are  shown  on  the  fol¬ 
lowing  page. 
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tions.  The  program  was  structured  in  such  a  way  that,  after  preliminary 
calculations  of  a  purely  geometric  nature  were  performed  one  time  for  a 
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also  used  to  compute  forces  on  an  M-117  bomb  at  a  number  of  different 
locations  in  the  disturbed  flow  field  generated  by  an  F-4C  parent  air¬ 
craft.  In  this  case,  absolute  values  of  the  force  coefficients  were 
generally  in  poor  agreement  with  wind  tunnel  values,  but  the  incremental 
variations  of  the  calculated  coefficients  through  the  nonuniform  flow 
field  were  within  the  range  from  5  to  10  percent  of  wind  tunnel  measure¬ 
ments.  A  store  separation  routine  was  added  to  the  potential  flow  pro¬ 
gram,  and  several  representative  store  separation  trajectories  were 
calculated . 
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